Range.Copy Destination
30.10.2020 12:59:09
torro100
ich verzweifle gerade.
Ich habe gelesen dass mit Destination das aktuelle Tabellenblatt egal ist, wenn der Code ausgeführt wird.
Dieser Codeschnipsel funktioniert einwandfrei, aufgerufen aus dem Tabellenblatt Kassenbuch.
Worksheets("Kassenbuch").Range(Cells(17, 4), Cells(lastrow, 21)).Copy _
Destination:=Worksheets("Transfer").Range("A2")
Wenn ich den gleichen Schnipsel umdrehe, auch aus dem Tabellenblatt Kassenbuch aufgerufen,
meckert der Debugger und markiert die Zeile gelb.
Worksheets("Transfer").Range(Cells(2, 1), Cells(lastrow, 18)).Copy _
Destination:=Worksheets("Kassenbuch").Range("D17")
Selbst ein With hat leider keinen Erfolg
With Worksheets("Transfer")
.Range(.Cells(2, 1), .Cells(lastrow, 18)).Copy _
Destination:=Worksheets("Kassenbuch").Range("D17")
End With
Die schrittweise Abarbeitung zeigt bis zum Debugger die richtigen Wert und Bereiche an.
danke im voraus
Mike