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.