Was fehlt, um ein Blatt auf ein anderes Blatt zu kopieren? Nicht alle Zeilen enthalten, wenn aktuelle Sub ausgeführt wird

Question

Ich bin relativ neu in VBA. Wenn Sie versuchen, ein Blatt zu kopieren, sind nicht alle Zeilen enthalten, wenn das Sub ausgeführt wird. Die Anzahl der Zeilen im Quelldokument ist variabel, daher habe ich "LastRow" verwendet. Bitte lass mich wissen, was mache ich falsch?

Sub CopySheetsl() 

     Dim wb As Workbook, wb1 As Workbook 
     Dim LastRow As Long 

     Set wb = Workbooks.Open("L:\x\Y\z\xxx.xlsx") 
     Set wb1 = Workbooks("macro x v.01.xlsm") 

     LastRow = range("A:Y").Find("*", SearchOrder:=xlByRows,  SearchDirection:=xlPrevious).Row 

     wb1.Sheets("Detail").range("C1", "AN1" & LastRow) = wb.Sheets("Detail_2").range("A1", "AL1" & LastRow).Value 

     wb.Close 
    End Sub 

Answer 1

Der Schuldige ist wahrscheinlich diese Linie.

LastRow = range("A:Y").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

Versuchen Sie explizit, die Arbeitsmappe und das Arbeitsblatt zu referenzieren, von denen Sie kopieren möchten.

LastRow = wb.Sheets("sheet name here").range("A:Y").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

Wenn Sie dies nicht tun, wird es sich in einer bestimmten Arbeitsmappe nach dem Blatt umsehen, zu dem Sie aktiv sind.