Mit untenstehendem Code lösche ich gewisse Zeilen, wenn diese in einmem String auf der gleichen Zeile eine bestimmte Bedingung erfüllen.
Das funktioniert so lange, bis die Bedingung auf der zweitletzten Zeile und der letzten Zeile zutrifft. Dann wird die letzte Zeile nicht gelöscht.
Wie kann ich das Problem lösen?
Gruss, Peter
For Each rngZelle In Range("Bereich_9")
If Mid(rngZelle.Offset(0, 1), 6, 1) = "/" _
And Left(rngZelle.Offset(0, 1), 5) = "20806" _
Or Left(rngZelle.Offset(0, 1), 5) = "20807" _
Or Left(rngZelle.Offset(0, 1), 5) = "20808" _
Or Left(rngZelle.Offset(0, 1), 5) = "20816" _
Or Left(rngZelle.Offset(0, 1), 5) = "20817" _
Or Left(rngZelle.Offset(0, 1), 5) = "29999" Then
rngZelle.EntireRow.Delete
GoTo Weiter
End If
Weiter:
Next