Beschleunigung einer Lösch-Schleife
DominikHH
ich möchte in einer Tabelle alle Zeilen löschen, in denen die 39. Spalte leer ist.
Hier im Forum habe ich bereits einen passenden Code gefunden, der im Vergleich zu meinem alten _
Code einiges an Geschwindigkeit gebracht hat:
Sub Löschen()
Dim z As Long, lZ As Long
lZ = ActiveSheet.Cells(65536, 2).End(xlUp).Row
For z = lZ To 1 Step -1
With ActiveSheet
If .Cells(z, 39) = "" Then .Rows(z).Delete
End With
Next
End Sub
Da ich aber eine sehr große Anzahl von Zeilen bearbeiten muss, wäre es super, wenn es noch eine schnellere Möglichkeit gäbe, die entsprechenden Zeilen zu löschen. Kann mir dahingehend jemand weiter helfen?
Vielen Dank im Voraus und viele Grüße
Dominik