ich habe eine Excel-Tabelle mit über 1200 Zeilen. Aus dem möchte ich Zellen ohne Wert (eine Formel steht aber drin) per Button löschen.
Ich habe es folgenderma0en probiert (ist übrigens schon aus diesem Forum):
Sub Löschen()
Dim i As Single
Application.ScreenUpdating = False
For i = 1 To 1500
If Cells(i, 1).Value = "" Then
'1 steht für Spalte A, 2 wäre Spalte B etc.
Rows(i).Delete Shift:=xlUp
i = i - 1
End If
Next i
Application.ScreenUpdating = True
End Sub
Aber irgendwie geht das seeeehhhhrrr träge. Manchmal hängt sich sogar der Computer dabei auf.
Für eine bessere Lösung wäre ich sehr dankbar!
Gruß Albert