Zeilen löschen mehrere Bedinungen
27.05.2018 16:31:34
Simone
kann mir jemand bei einem Makro helfen?
Er soll Spalte E folgendes Prüfen
wenn "Ergebnisse " gefunden
Und die Zeile darunter = "Bezeichnung"
Und unter dieser Zeile = "Vorbehandlung"
Dann löschen
sonst nichts
Wieder von vorne angefangen bis er nichts mehr findet
Hab das versucht aber schaffe es nur mit einer Bedinung
Sub loeschen_FKE()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(i, 5) = "Ergebnisse " Then Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub
Liebe Grüße, Simone
Anzeige