Kopieren von Zellen von Arbeitsmappe zu Arbeitsmappe Ergebnisse in "Index außerhalb des Bereichs"

Question

Guten Tag.

Ich versuche, einen Code zu schreiben, der im Wesentlichen Zellen (von links nach rechts) von "A - M" und (nach unten) bis zur letzten verwendeten Zeile auswählt.
Dann, einmal ausgewählt, sollte ich sie in eine andere Arbeitsmappe kopieren.

Dies ist der Code, den ich zu verwenden versucht:

ActiveWorkbook.Worksheets("Sheet1").Range("A1:M" & LastRow).Copy _ 
    Workbooks("Converter.xlsm").Worksheets("Sheet1").Range("A1").CurrentRegion 

Alles andere im Code außer für diese Linie funktioniert. diese
Und das Ergebnis ist:

Run-time error '9': 

Subscript out of range 

Dank.

PS. Die "LastRow" Variable, die ich benutzt habe, habe ich gerade aus einem Tutorial gezogen. Das ist keine persönliche benutzerdefinierte Variable, daher bin ich mir nicht sicher, ob das tatsächlich aus der Dokumentation von VBA stammt.

Answer 1

Sie haben erwähnt, dass Sie keine Berechnung für LastRow haben.

1. Setzen Sie immer Option Explicit oben auf Ihrem Modul. Es zwingt Sie, Ihre Variablen zu deklarieren und hilft Ihnen zu erkennen, ob etwas, das Sie von einem anderen Coder bekommen haben, "eingebaut" ist oder nicht.
2. Siehe this post über die Bestimmung der letzten Zeile in einem Bereich.

3. Von diesem Posten, sollten Sie eine Berechnung wie die folgenden, bevor Sie Ihren Code-Zeile haben ...

   LastRow = Sheets("Sheet1").Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Row 
   

Answer 2

alle Arbeitsmappen Bitte schließen und erneut öffnen und dann mit unten versuchen, Code

Sub test() 
    Dim lastrow As Long 
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    ActiveWorkbook.Worksheets("Sheet1").Range("A1:M" & lastrow).Copy Workbooks("Converter.xlsm").Worksheets("Sheet1").Range("A1") 
End Sub