Zeile löschen bei bestimmtem Inhalt
06.06.2006 11:09:45
Anton
ich habe folgendes Problem:
wenn in der Spalte A in einer Zeile der Wert "Agent Name and ID" gefunden wird,
soll die ganze Zeile gelöscht werden.
bei leeren Zelen funktioniert es mit diesem Makro:
Sub ZeileWegWennZelleLeer()
' Zeilen löschen wenn Zelle in Spalte A leer ist
Dim L As Long
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
For L = ZL To 1 Step -1
If Len(ActiveCell.Value) = 0 _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Next L
End Sub
Wer kann mir bitte weiterhelfen?
Und eine zweite Frage habe ich noch:
wie kann ich erreichen dass die erste Zeile nicht gelöscht wird?
Vielen Dank,
Euer Anton