Vielen Dank im Voraus!
Private Sub Worksheet_Change(ByVal Target As Range)
'Zeilen automatisch ausblenden (bzw. einblenden), wenn in der Spalte F eine Null steht.
Dim rng As Range
For Each rng In Range(Cells(1, 6), Cells(356, 6).End(xlUp))
If LCase(rng) = "0" Then
rng.EntireRow.Hidden = True
Else
rng.EntireRow.Hidden = False
End If
Next rng
End Sub