VBA: Worksheet ausblenden wenn Zelle = WAHR
13.04.2015 13:42:52
Hauser
ich habe eine Frage zu VBA:
ich habe in Worksheet 1 durch ein ActiveX-Optionsfeld die Wahl zwischen Einblenden und Ausblenden.
Diese Optionsfelder sind jeweils mit Zellen auf Worksheet 2 verknüpft, wo dann WAHR oder FALSCH ausgegeben wird (das ist kein Muss, es hat mir aber bei anderen Formeln geholfen).
Wenn Ausblenden gewählt wird, ändert sich dessen Wert in Worksheet 2 logischerweise auf WAHR.
Sobald das passiert soll Worksheet 3 ausgeblendet werden.
Ich habe versucht das über VBA zu lösen, bin aber noch ein Einsteiger und habe darum Schwierigkeiten.
Hier mein (wahrscheinlich nicht fehlerfreier) Versuch:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" = "WAHR" Then
Worksheets("Worksheet 3").Visible = Target = "WAHR"
End If
End Sub
Anzeige