Makro welches durch ändern eines Wortes bzw. einer Zahl ein Excelblatt versteckt

Question

Hallo an alle,
ich habe folgendes Problem:
ich suche nach einem Makro welches durch das ándern eines Wortes oder einer Zahl ein Excelblatt versteckt ohne es in ein Symbol einfügen zu mússen.
Was ich schon habe:

Sub mit Wort verstecken()

Sheets("Blatt1").Select
If Cells(1, 1) = 1 Then
Sheets("Blatt2").Visible = xlSheetVisible

Else
Sheets("Blatt2").Visible = xlSheetVeryHidden
End If

End Sub
In A1 habe ich eine Dropdown-Liste eingefügt mit 1,2,3 das Problem ist dass ich dieses Makro in ein Symbol einfügen muss damit es funktioniert, da es einfach durch ándern der Zahl nicht funktioniert.
Schon mal danke im Vorraus.
gruss

Answer 1

benutze das Change Ereignis.

Gruß Hajo

Answer 2

Hallo Hajo,
danke für die schnelle Antwort, ich bin allerdings VBA-Beginner und kann mit dem Change Ereignis relativ wenig anfgangen :)
Könntest du den veränderten Code oder eine genauere Erklärung hinzufügen.
Vielen Dank

Answer 3

untere der Tabelle

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 1 Then
Sheets("Blatt2").Visible = xlSheetVisible
Else
Sheets("Blatt2").Visible = xlSheetVeryHidden
End If
End If
End Sub

Gruß Hajo

Answer 4

Schon gut, so hat es geklappt.Danke

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sheets("Deckblatt").Select
If Range("A1") = 1 Then
Sheets("Input").Visible = xlSheetVisible

Else
Sheets("Input").Visible = xlSheetVeryHidden
End If


End Sub

Answer 5

OK ja deine Lösung scheint plausibler
Vielen Dank