ich habe ein Makro welches leere Zeilen löscht:
Sub del_row()
Dim i As Variant, Alle As Variant
Application.ScreenUpdating = False
Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For i = Alle To 1 Step -1
Do While Application.CountA(Rows(i)) = False
Rows(i).EntireRow.Delete
Loop
Next i
End Sub
Das funktioniert auch ganz gut aber bei grossen Datenmengen ist es sehr langsam - und das überproportional:
Bei 10.000 Datensätzen ca. 20 Sekunden
Bei 100.000 Datensätzen dann mehr als 5 Minuten
Da stimmt das Verhältnis ja auch nicht?
Hat jemand eine Idee wie man das Makro beschleunigen könnte?
Vielen Dank und viele Grüße Lutz