Leere Zellen in einem Bereich, ganze Zeile aus- oder einblenden

In einem definierten Bere­ich sollen alle Zeilen, in welchen in Spal­teA eine leere Zelle ist, aus­ge­blendet wer­den. Alter­na­tiv soll auch fol­gen­des möglich sein: Sind die Zeilen bere­its aus­ge­blendet, dann sollen sie wieder einge­blendet wer­den.

Fol­gen­der Code ist zielführend, wenn nur aus­ge­blendet wer­den soll:

Option Explicit

Sub Leere_Ausblenden()
   Dim rng As Range
   
   Set rng = Range("A20:A2000")
   rng.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Möcht­en Sie, dass bei jedem Aufruf des Makros der Zus­tand wech­selt, dann bietet sich dieser leicht verän­derte Code an:

Sub Leere_Aus_Einblenden()
   Dim rng As Range
   
   Set rng = Range("A9:A150")
   With rng.SpecialCells(xlCellTypeBlanks)
      .EntireRow.Hidden = Not .EntireRow.Hidden
   End With
End Sub

Und wenn Sie das Makro an eine Schalt­fläche binden, dann kön­nen Sie auch bei der Gele­gen­heit die Beschrif­tung (Label) den Gegeben­heit­en anpassen.