Hi Hans,

For the delarations:
Dim wbZiel As Workbook
Dim wksZiel As Worksheet
Dim wbQuelle As Workbook
Dim wksQuelle As Worksheet

If you're working with the German regional settings, I believe the separator should be ';', not ','. So, instead of 'strName = wksZiel.Cells(4, 3).Value', you'd use 'strName = wksZiel.Cells(4; 3).Value'. You'll have to make the same changes anywhere there's a ',' separator - for example, Cells(lngZeile_Q, 2).

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]