Excel - Zeilen ein und ausblenden bei bestimmten Zellenwert?

Folgendes Problem:

Ich möchte eine Tabelle erstellen, die immer wieder genutzt werden soll. Jedoch wird die Tabelle nicht immer voll und beim Drucken der Tabelle möchte ich die Zeilen ohne Wert nicht mit ausdrucken.

Wie kann ich es so machen das wenn einer Zelle kein Wert steht ,oder der Wert null steht, das eine gewisse Zeile ausgeblendet wird und wieder eingeblendet bei einem Wert von über 0?

Danke für die Hilfe

Answer 1

[qugart]

Irgendwie so:

Sub ausblenden()
 Dim sh As Worksheet

 Set sh = ThisWorkbook.Sheets("Tabelle1")

 With sh


 'Alle Zellen wieder einblenden, nur zu Testzwecken

 .Cells.EntireRow.Hidden = False

  If .Range("A1").Value = "1" Then
  .Rows("16:50").EntireRow.Hidden = True
  End If

  If .Range("A1").Value = "2" Then
  .Rows("21:50").EntireRow.Hidden = True
  End If

  If .Range("A1").Value = "3" Then
  .Rows("26:50").EntireRow.Hidden = True
  End If
  
 End With

 Set sh = Nothing

 End Sub

Gestohlen von https://www.herber.de/forum/archiv/1568to1572/1569701_Bei_Wert_in_Zelle_Zeilen_ausblendeneinblenden.html

Answer 2

[Oubyi, UserMod Light]

Setzt den Autofilter --> Alle Auswählen --> Häkchen bei "Leere" (ganz am Ende) entfernen.
Oder gehe auf Autofilter --> Zahlenfilter --> Größer als >>> 0

Woher ich das weiß: Berufserfahrung – IT-Administrator (i.R.)

Answer 3

[GutenTag2003]

Am einfachsten geht das über "Autofilter"