Musterdatei auf
https://www.herber.de/bbs/user/87891.xlsx
Ich lösche folgende Zeilen auf der Musterdatei mit folgendem Code
Sub Zeilen_löschen()
With Worksheets("Muster")
intLastRow = .Cells(Rows.Count, 6).End(xlUp).Row
For Start = intLastRow To 5 Step -1
LeereZelle = Cells(Start, 6).End(xlUp).Row
LastRow = Cells(LeereZelle, 1).End(xlDown).Row - 2
Start = LeereZelle
Rows(LeereZelle - 1 & ":" & LastRow).Delete
Next
End With
End Sub
Bei vielen Zeilen und bei mehrmaligem Auslösen läuft der Code langsam. Wie kann ich das beschleunigen? Zum Beispielindem ich erst am Ende des Loops alle Zeilen zusammen lösche.Vielen Dank und Gruss
Gregor