Der Monat wird in einem Erläuterungsblatt vom Anwender über eine Auswahlliste ausgewählt.
Der nachstehende Funktion funktioniert nur, wenn man in eine Zelle direkt einen Wert hineinschreibt und bei Änderung auch erst nach Löschung.
Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print Target.Address
If Target.Address <> "$E$8" Then Exit Sub
If UCase(Target.Value) = "April 2006" Then Worksheets("31").Visible = False
If Target.Value = "" Then Worksheets("31").Visible = True
End Sub
WEr weiß Rat?
Grüße
Alex