Diagramm ausblenden wenn CheckBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Diagramm ausblenden wenn CheckBox
von: Heinz H
Geschrieben am: 22.07.2015 12:13:22

Mahlzeit im Forum
Ich habe 3 Diagramme,die ich mit CheckBoxen anzeigen lasse.
Es sollte immer nur ein Diagramm angezeigt werden.
Der untere Code funktioniert nicht so richtig.
Es werden zwei Diagramme angezeigt.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß Heinz

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
CheckBox1.Caption = "Heimspiele ausblenden"
ActiveSheet.ChartObjects("Diagramm 2").Visible = False
ActiveSheet.ChartObjects("Diagramm 3").Visible = False
CheckBox2.Value = False ' entfernt das Häkchen
CheckBox3.Value = False ' entfernt das Häkchen
Else
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
CheckBox1.Caption = "Heimspiele einblenden"
End If
End Sub

Bild

Betrifft: AW: Diagramm ausblenden wenn CheckBox
von: Rudi Maintaire
Geschrieben am: 22.07.2015 12:24:04
Hallo,
Es sollte immer nur ein Diagramm angezeigt werden.
dann solltest du besser Optionbuttons verwenden.
Gruß
Rudi

Bild

Betrifft: AW: Diagramm ausblenden wenn CheckBox
von: Heinz H
Geschrieben am: 22.07.2015 13:02:29
Hallo Rudi
Erstmals Danke wegen "OptionButton" sehr gute Entscheidung
Nur tut sich jetzt nichts mit meinen Code
Wo liegt bitte mein Fehler?
Danke Heinz


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
OptionButton1.Caption = "Heimspiele ausblenden"
Else
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
OptionButton1.Caption = "Heimspiele einblenden"
ActiveSheet.ChartObjects("Diagramm 2").Visible = True
ActiveSheet.ChartObjects("Diagramm 3").Visible = True
End If
End Sub


Bild

Betrifft: AW: Diagramm ausblenden wenn CheckBox
von: Rudi Maintaire
Geschrieben am: 22.07.2015 13:45:44
Hallo,
vom Prinzip her geht's so:

Private Sub OptionButton1_Click()
  ShapesEinAus
End Sub
Private Sub OptionButton2_Click()
  ShapesEinAus
End Sub
Private Sub OptionButton3_Click()
  ShapesEinAus
End Sub
Sub ShapesEinAus()
  With Tabelle1
    .Shapes(1).Visible = .OptionButton1.Value
    .Shapes(2).Visible = .OptionButton2.Value
    .Shapes(3).Visible = .OptionButton3.Value
  End With
End Sub

Hab Shapes statt Diagramme genommen.
Gruß
Rudi

Bild

Betrifft: AW: Diagramm ausblenden wenn CheckBox
von: Heinz H
Geschrieben am: 22.07.2015 14:22:34
Hallo Rudi
Funktioniert super.
Recht herzlichen Dank !!
noch einen schönen Tag
gruß,Heinz

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Diagramm ausblenden wenn CheckBox"