Hallo Leute,
nachdem das mit der Hilfe letztes Mal so toll geklappt hat hier ein neues kleines Problem:
Mein bisheriger Code:
For t = lz To 1 Step -1
If IsEmpty(Range("E" & t)) Or Not IsNumeric(Range("E" & t)) Then
Rows(t).Delete Shift:=xlUp
End If
Next t
Dann werden aber alle Zeilen gelöscht, die nicht komplett numerisch sind. Bei mir steht z.B. "Beispiel 1" in einer Spalte und das soll behalten werden. Nur Einträge, die diese Form haben sollen gelöscht werden " " oder "Beispiel".
Vielen Dank schon einmal für Eure Anregungen!