kann mal bitte jemand einen Blick auf den Code werfen, funktioniert bei mir leider nicht. Das Einblenden sollte über die Eingabe eines Buchstaben erfolgen.
Beispieldatei liegt bei. Bekomme es einfach nicht hin.
https://www.herber.de/bbs/user/33867.xls
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'nur ausführen, wenn F16 geändert wurde:
If Intersect(Target, Range("F16")) Is Nothing Then Exit Sub
'Ergebnis durch Eingabe in Zelle
Select Case Range("F16").Value
Case 0 'Ausblenden
Sheets("Tabelle2").Visible = False
Sheets("Tabelle3").Visible = False
Sheets("Tabelle4").Visible = False
Case A 'Anzeigen
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = False
Sheets("Tabelle4").Visible = False
Case B 'Anzeigen
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = True
Sheets("Tabelle4").Visible = True
Application.ScreenUpdating = True
End Select
End Sub
Vielen Dank für die Mühe
Gruß Torge