bei folgedem Code erhalte ich die Fehlermeldung: Laufzeitfehler 1004 Für diese Aktionen müssen alle verbundenen Zellen dieselbe Größe haben.
For Each c In Worksheets("Reorganisation").Range("E6:H203")
If Not IsEmpty(c) And Len(c) = 0 Then
z = c.Row - 1
Exit For
End If
Next
Set rng1 = Worksheets("Reorganisation").Range("E6:H" & z)
Workbooks("Verkauf.xls").Activate
Worksheets("Kunden").Activate
rng1.Copy
Range("D2").PasteSpecial Paste:=xlValues
In anderen Anwendungen läuft dieses Makro. Wo ist mein Fehler?
Bitte Rücksicht fange gerade erst mit VBA an.... Danke
Gruß
Wolfgang