Hallo,
Im nachfolgenden Code vermischt Du das Blatt mit dem Index a mit dem aktiven Blatt. Der fett markierte Teil bezieht sich auf das aktive Blatt.
wb2.Worksheets(a ).Range("B27:B" & Cells(Rows.Count, 2).End(xlUp).Row).Copy
Wahrscheinlich wolltest Du es so schreiben:
With wb2.Worksheets(a)
.Range("B27:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Copy _
Destination:=ws4.Cells(letzteZeile + 1, 5)
.Range("C27:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Copy _
Destination:=ws4.Cells(letztezeil + 1, 10)
End With
Ich weiß ja nicht vie viele Blätter du bearbeitest. Aber das kopieren dauert. Ggf. wäre es schneller, wenn Du lediglich die Inhalte übertragen würdest. z. B. so:
With wb2.Worksheets(a)
ws4.Cells(letzteZeile + 1, 5).Resize(1, letzteZeile - 26).Value = .Range("B27:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
ws4.Cells(letztezeil + 1, 10).Resize(1, letztezeil - 26).Value = .Range("C27:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Value
End With
Grüße
Michael
|