Ganze Zeile löschen, wenn best. Wert in Zelle
22.07.2008 11:36:00
Bernhard
heute bin ich schon wieder mit einer Aufgabe im Forum. Ich muss aus grossen Tabellen die Zeilen löschen, in denen der Wert NA steht. Also wenn in C201 NA steht, soll die ganze Zeile gelöscht werden. Ich habe folgendes Makro "gegoogelt" und versucht anzupassen, aber es funktioniert nicht.
Sub LeerzeilenLöschen()
Dim l As Long
Dim Zl As Long
Sheets("Tabelle1").Activate
Zl = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
For l = 1 To Zl
If Len(ActiveCell.Value) = " NA " _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Next l
End Sub
Wer kann mir weiter helfen. Danke im voraus.
Gruss
Bernhard