Hallo zusammen,
ich möchte in einer Liste alle Zeilen löschen in der in Spalte 8 (H) der Wert 0 steht. Dazu verwende ich folgenden Code.
Sub zellenloeschen()
Dim ReihePD2 As Long
ReihePD2 = Sheets("PROV_DRAFT").[H65536].End(xlUp).Row
For x = 2 To ReihePD2
If Worksheets("PROV_DRAFT").Cells(x, 8) = "0" Then Sheets("PROV_DRAFT").Rows(x).Delete
Next x
End Sub
Im Prinzip funktioniert es. Leider löscht das Marko nicht alle Zeilen die den Wert 0 haben. Es bleiben von 250 ungefähr 15 stehen. Lasse ich das selbe Marko erneut drüber laufen, bleibt noch eine Zeile stehen, beim dritten Durchlauf sind dann alle Zeilen weg. Ich habe mir die Nachkommastellen bereits angeschaut, ein Rundungsthema bei den Daten gibt es nicht.
Hat vielleicht jemand eine Idee?
Vielen Dank und Gruß
Marc
|