Ich habe dieses Makro, das ich geschrieben habe:
Dim lastColumn As Long
lastColumns = wkbWorkbook2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'this is the highlighted part in debug
SourceRange.Copy
wkbWorkbook2.Worksheets(2).Cells(1, lastColumns + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Ursprünglich ist der obige Code Teil eines größeren Codes. Aber wenn ich ihn ausführe, erhalte ich den Laufzeitfehler 1004.
Aber als ich versuchte, es alleine auszuführen, funktionierte es. Wo könnte ich also einen Fehler gemacht haben?
Danke.