Leerzeilen löschen (schnell)
12.08.2003 11:26:05
Dirk
Allerdings dauert das bei ca. 3000 Datensätzen rund 10 Minuten und wollte deshalb fragen, ob dies auch irgendwie schneller möglich ist???
Es soll also einfach eine Spalte überprüft werden und ist dies der Fall, soll die gesamte Zeile gelöscht werden.
Sub LeerZeilenLoeschen()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 5).Value = "" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Danke schon mal im Voraus.
Gruß, Dirk
Anzeige