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.
1
So funktioniert es gut allein, aber scheitert, wenn ein Teil des größeren Makros. Aber Sie haben das größere Makro nicht bereitgestellt? Wie können wir Ihnen helfen, wenn wir das Ziel nicht verstehen?
Raystafarian
Wb2 Objekt richtig gesetzt? Und posten Sie einen verwandten Code, der den Fehler verursacht hat (falls das Problem zu diesem Zeitpunkt noch nicht behoben ist).
ZAT