Dim lastC As Long
lastC = wb2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'highlighted in debug
SourceRange.Copy
wb2.Worksheets(2).Cells(1, lastC + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Oben ist der Code, den ich habe, er ist Teil eines größeren Makros. Wenn ich es ausführe, erhalte ich den Laufzeitfehler 1004 applicationatiom defined oder object defined error.
Als Teil des größeren Codes funktioniert es nicht, aber als ich versuchte, ihn zu trennen und auszuführen, funktioniert es einwandfrei.
Ich arbeite mit mehreren Arbeitsmappen und Arbeitsblättern. Ich habe diese eine .xlsm
Datei, die 4 andere .xls
Datei in einer konsolidiert .
Vielen Dank.