Zeilen löschen, die mit einem Buchstaben anfangen
24.03.2005 08:18:41
Markus
Ich hab da mal ein Problem:
Gesucht ist ein Programm, dass mir aus einer Tabelle alle GESAMTEN Zeilen löscht, in denen in der A Spalte das erste Zeichen KEINE Zahl ist.
Ich habe hier was gefunden, dass nur leere Zeilen löscht.
[code]
Sub LeereZeilenLöschen()
Application.ScreenUpdating = False
Tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For x = Tmp To 1 Step -1
Do While Application.CountA(Rows(x)) = False
Rows(x).EntireRow.Delete
Loop
Next x
End Sub
[/code]
Gibt es einen Ausdruck für "Buchstaben" anstatt "*"? Oder muss ich das komplett anders schreiben?
Hoffe mir kann jemand helfen =)
Grüße,
M.