Leere Zeile löschen -Laufzeit
24.01.2017 11:57:58
Munzir
Hallo zusammen,
ich habe eine Tabelle mit ca 40000 Einträge, die ich bereinigen möchte.
Es sind Zeilen, die ich komplett löschen möchte, wenn eine bestimmte Zelle leer ist (in dem Bsp. _
Zelle "G"). Dafür benutze ich folgende Makro:
Sub Clean_Tbl()
Dim iCounter As Long
Dim nRow As Long
With ActiveSheet
Debug.Print "Start:" & Now
nRow = .Cells(Rows.Count, 7).End(xlUp).Row
For iCounter = nRow To 1 Step -1
'In Spalte G kein Eintrag, dann
If .Cells(iCounter, 7).Value = "" Then
Rows(iCounter).Delete
End If
Next iCounter
End With
Debug.Print "Ende:" & Now
End Sub
Soweit funktioniert alles, aber es dauert bei der Menge an Daten zu lange.
Könnte man, den Code noch optimieren, um die Laufzeit zu verkürzen.
Wäre für jede Hilfe sehr dankbar.
Grüße
Munzir