ich habe folgene Formel, die auch wunderbar funktioniert!
Allerdings braucht sie zum löschen der Zeilen 4 Minuten!
Geht dass nicht irgendwie schneller?
danke
Sub Loeschen()
'
' loeschen Makro
' Makro am 13.05.2004 von Gu aufgezeichnet
'
' Tastenkombination: Strg+l
'
Dim lgCount As Long
'ggf. den Tabellennamen anpassen
With Sheets("ESD")
'Bereich Zeilen 5 bis 5000
For lgCount = 5000 To 5 Step -1
If WorksheetFunction.CountA(.Range("A" & lgCount & ":H" & lgCount)) = 0 Then
.Rows(lgCount).Delete
End If
Next
End With