Der Eintrag in der Zelle erfolgt über eine Auswahlliste.
Die nachstehende Lösung funktioniert nur, wenn mann manuell in eine Zelle den betreffenden Wert eingibt. Geänderte Werte der Auswahlliste oder auch andere Formelergebnisse führen nicht zum Erfolg.
Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print Target.Address
If Target.Address <> "$A$1" Then Exit Sub
If UCase(Target.Value) = "X" Then Worksheets("Tabelle2").Visible = False
If Target.Value = "" Then Worksheets("Tabelle2").Visible = True
End Sub
Gibt es hier eine Lösung?