Hallo zusammen,
ich möchte über ein Makro in Excel folgendes erreichen:
Wenn in einer Zelle in Spalte A ein Wort enthalten ist, welches mit "P" beginnt und in der gleichen Zeile die in Spalte B eine leere Zelle vorhanden ist, soll die ganze Zeile gelöscht werden.
So sieht mein Makro bisher aus:
Sub nvloeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "P" And Cells(i, 2) = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Leider funktioniert das bisher nur wenn in Spalte A nur ein "P" steht. Wenn allerdings das Wort "Peter" enthalten ist, wird die Zeile nicht gelöscht. Wie kann man das IF entsprechend umschreiben, dass das Programm nach allen Wörtern sucht, die mit P beginnen?
|