Excel VBA


Wenn im Bereich A1:A100 der Wert FALSCH drin steht, soll die
Zeile ausgeblendet werden. 
Wenn WAHR drin steht, soll sie eingeblendet werden.

Sub Zeilen_ausblendenEinblenden()
 Dim c As Range
 Range("A1:A100").Select
   For Each c In Selection
      If c.Value = "Falsch" Then _
         Rows(c.Row).EntireRow.Hidden = True
      If c.Value = "Wahr" Then Rows(c.Row). _
         EntireRow.Hidden = False
   Next c
End Sub