Bin wieder einmal bei einem VBA-Problemchen.
Ich habe mir zwar in einem anderen File schon zwei Option-Buttons zurecht gerichtet, durch welche ich bei Anklicken unterschiedliche Diagramme herein hole. Diese habe ich jeweils pro Optionbutton mit dem Code
Private Sub OptionButton1_Click()
If Range("b2").Value = True Then
Sheets("Übersicht").ChartObjects(1).Visible = True
Sheets("Übersicht").ChartObjects(2).Visible = False
End If
End Sub
bewerkstelligt.
Nun habe ich versucht, mit 4 Optionbuttons den Code etwas anders darzustellen.
Private Sub Worksheet_Calculate()
ActiveSheet.Shapes("Diagramm 1").Visible = OptionButton1.Value
ActiveSheet.Shapes("Diagramm 2").Visible = OptionButton2.Value
ActiveSheet.Shapes("Diagramm 3").Visible = OptionButton3.Value
ActiveSheet.Shapes("Diagramm 4").Visible = OptionButton4.Value
End Sub
Aber irgendwie rührt sich hier nichts. Wo liegt hier der gordische Knoten?
Vielleicht hat jemand von Euch einen heißen Tipp?
Schöne Grüße
Berni