|
Hallo zusammen,
ich möchte mein Makro etwas optimieren. Leider hakt es bei folgendem Abschnitt:
Set wb2 = Workbooks(dateiname)
Set ws4 = Workbooks("Tabelle.xlsm").Worksheets("123")
For a = 1 To WS_Count
letzteZeile = ws4.Cells(Rows.Count, 5).End(xlUp).Row
letztezeil = ws4.Cells(Rows.Count, 10).End(xlUp).Row
wb2.Worksheets(a ).Range("B27:B" & Cells(Rows.Count, 2).End(xlUp).Row).Copy _
Destination:=ws4.Cells(letzteZeile + 1, 5)
wb2.Worksheets(a ).Range("C27:C" & Cells(Rows.Count, 3).End(xlUp).Row).Copy _
Destination:=ws4.Cells(letztezeil + 1, 10)
Next
Leider läuft dieser Abschnitt recht langsam. Mir wurde gesagt, dass man nicht mit Rows.Count arbeitet, wüsste jedoch nicht wie ich es verbessern kann. Über Hilfe wäre ich super dankbar.
viele Grüße Marie
|