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]
|