ich habe folgenden Code, der jedoch nicht korrekt arbeitet. Wenn ich nur die Funktion mit der letzten Zeile mitlaufen lasse, dann arbeitet es gut, jedoch werden leere Bereiche mit kopiert.
Mit der Definition der ersten Zeile hackt der Code total lange fest und überträgt dann immer nur die letzte Zeile. Hat jemand eine Idee?
Dim anzahl As Integer
anzahl = ActiveWorkbook.Worksheets.Count
Dim Zeile&, letzteZ&, ersteZ&
For i = 6 To anzahl
With Worksheets(i)
.AutoFilterMode = False
letzteZ = .Cells(Rows.Count, 3).End(xlUp).Row
ersteZ = .Cells(Rows.Count, 3).End(xlDown).Row
Zeile = Worksheets("Datenpool").Cells(Rows.Count, 6).End(xlUp).Row + 1
'.Range("A6:u" & letzteZ).Copy
.Range("A" & ersteZ & ":" & "U" & letzteZ).Copy
Worksheets("Datenpool").Range("A" & Zeile).PasteSpecial Paste:= _
xlPasteValuesAndNumberFormats
End With
Next