Zeilen ausblenden, die Nullwerte enthalten

03. Februar 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So unterbinden Sie die Anzeige von Zeilen per VBA

Sie möchten automatisch per Makro alle Zellen ausblenden, in denen ein Nullwert vorkommt? Das kann eine sinnvolle Anwendung sein, um Daten zu bereinigen. Sehen Sie sich die Ausgangssituation in der folgenden Tabelle an:

In dieser Tabelle sollen alle Zeilen ausgeblendet werden, in denen sich Zellen befinden, die eine Null enthalten. Verwenden Sie das folgende Makro:

Sub ZeilenAusblendenWenn0()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
 If Zelle.Value = 0 And Rows(Zelle.Row).Hidden = False _
    Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub

Wenn Sie das Makro mit dem Tabelle starten, die oben abgebildet ist, werden die Zeilen 4, 12 und 16 ausgeblendet:

In diesen Zeilen taucht jeweils in irgendeiner Spalte ein Nullwert auf. Falls Sie anstelle eines Nullwerts ein anderes Kriterium überprüfen möchten, können Sie den Vergleich mit der Zahl 0 im Programmcode anpassen.

Das Makro macht sich etwas zu viel Arbeit, weil es auch Zellen überprüft, die sich in einer bereits zuvor ausgeblendeten Zeile befinden. Dafür kommt das Makro mit weniger Kommandos aus als wenn es diesen Umstand noch abfangen würde.

Um alle Zellen wieder einzublenden, drücken Sie die Tastenkombination STRG A und wählen anschließend die Funktion "Format – Zeile – Einblenden" oder Sie verwenden das folgende Makro:

Sub AlleEinblenden()
Cells.Rows.Hidden = False
End Sub

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"