Thema Datum  Von Nutzer Rating
Antwort
Rot Marko löscht nicht alle Zeilen
 16.02.2022 11:58:26 MOBA Marc
NotSolved
16.02.2022 12:09:57 Gast65286
NotSolved
16.02.2022 12:19:23 MOBA Marc
Solved
16.02.2022 13:22:47 Mase
NotSolved

Ansicht des Beitrags:
Von:
MOBA Marc		 Datum:
16.02.2022 11:58:26		 Views:
939		 Rating:
     
Antwort:
  Ja
Thema:
Marko löscht nicht alle Zeilen

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 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Marko löscht nicht alle Zeilen
 16.02.2022 11:58:26 MOBA Marc
NotSolved
16.02.2022 12:09:57 Gast65286
NotSolved
16.02.2022 12:19:23 MOBA Marc
Solved
16.02.2022 13:22:47 Mase
NotSolved