Thema Datum  Von Nutzer Rating
Antwort
23.01.2020 10:38:01 Stephan
NotSolved
Blau Zeilen löschen mit Bedingung
 23.01.2020 12:18:26 Torsten
Solved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
23.01.2020 12:18:26		 Views:
572		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen löschen mit Bedingung

Hallo Stephan,

so z.B.

Option Explicit

Sub test()

Dim Zelle As Range, Bereich As Range
Dim letzte As Long

letzte = Sheets("Tabelle1").Cells(Rows.Count, 4).End(xlUp).Row
Set Bereich = Sheets("Tabelle1").Range("D2:D" & letzte)

For Each Zelle In Bereich
    If Zelle.Value = 0 Then             'wenn die Nullen wirklich Zahlen sind, bei Text die Null hier in "" setzen
       Sheets("Tabelle1").Range("D" & Zelle.Row).EntireRow.Delete
    End If
Next

End Sub

Gruss Torsten

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
23.01.2020 10:38:01 Stephan
NotSolved
Blau Zeilen löschen mit Bedingung
 23.01.2020 12:18:26 Torsten
Solved