bekomme immer einen Laufzeitfehler9 in der fett markierten Zeile beim ausführen des Codes.
Sub
....
With wks
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy
Workbooks("Data Generator.xls").Sheets("Kundenkontakte").Range("A18").PasteSpecial Paste:=xlValues
End With
....
End Sub
Hat jemand eine Idee, was falsch ist?
Danke!
Gruß
Space