ich möchte gerne unnötige zeilen mit text löschen. Dabei sollen komplette Zeilen gelöscht werden, sobald in Spalte A in einer Zeile Text auftaucht.
Kann mir da einer einen guten Code geben?
Gruß saphira
Sub loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Not IsNumeric(Cells(i, 1)) Then Cells(i, 1).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub