Mir wurde von Ingo das folgende Skript gegeben:
Sub ausblenden()
Dim r As Range
For Each r In ActiveSheet.Range("23:223").Rows
If r.Cells(1) = 0 Then r.EntireRow.Hidden = True
If r.Cells(1) = 1 Then r.EntireRow.Hidden = False
Next r
End Sub
Wie kann man dies nun entsprechend anpassen, dass sich der Skript automatisch ausfuerht wenn die Zelle A1 manuell geaendert wird.
Vielen Dank im Voraus fuer eure Hilfe.
Daniel.