Funktion Delete.Rows mit Kriterium löscht nicht alle gewünschten Zeilen
06.02.2020 12:10:14
Falko
folgender Code soll alle Zeilen löschen, wenn im Bereich ab Zelle E17 der Wert 0 vorhanden ist.
Sub Initiierung_Maßnahmen()
Dim Zaehler As Byte
Dim LetzteZeile As Long
LetzteZeile = Range("C500").End(xlUp).Row
For Zaehler = 17 To LetzteZeile
If Worksheets("Initiierung von Maßnahmen").Range("E" & Zaehler) = 0 Then
Rows(Zaehler).Delete Shift:=xlUp
End If
Next Zaehler
End Sub
Leider lässt das Makro nach Ausführung immer einige Zeilen stehen, obwohl das Kriterium erfüllt ist. Starte ich das Makro erneut, löscht es teilweise die stehengebliebenen Zeilen, obwohl diese nicht verändert wurden.
Ich muss das Makro bis zu drei mal laufen lassen, damit das gewünschte Ergebnis vorliegt.
Hat jemand eine Idee woran das liegen kann?
Danke und viele Grüße
Falko