Sie wollen Ihre Tabellen übersichtlicher gestalten und benötigen z. B. bei der Ansicht bestimmte Zeilen nicht. Dann können Sie durch Markierung dieser Zeilen und Starten dieses Makros nicht benötigte Zeilen automatisch ausblenden:

Sub Ausblenden() 

Set r = Range("A1", Range("A1").End(xlDown)) 

For Each c In r 

If c.Value = 0 Then 

c.EntireRow.Hidden = True 

End If 

Next 

End Sub

Wenn Sie in die Zellen in der Spalte A eine 0 (Null) eintragen, dann wird die gesamte Zeile ausgeblendet.