Diagramme ausblenden

[zero82]

Hallo liebes Forum,

ich möchte gerne per Listenfeld zwei Kategorien einbauen, mit der ich zwei Diagramme aus- bzw. einblenden möchte.

Kategorie A zeigt Diagramm A und Kategorie B zeigt Diagramm B an.

Ich habe folgendes ausprobiert aber er zeigt mir immer einen Fehler an. Woran kann das liegen?

Code: Alles auswählen

Private Sub Diagramm()
If CheckBox1.Value = True Then
    ActiveSheet.ChartObjects("Diagramm1").Visible = True
    ActiveSheet.ChartObjects("Diagramm2").Visible = False
  Else
    ActiveSheet.ChartObjects("Diagramm1").Visible = False
    ActiveSheet.ChartObjects("Diagramm2").Visible = True
End If
End Sub

Danke schonmal
zero82

[juetho]

Ich habe folgendes ausprobiert aber er zeigt mir immer einen Fehler an. Woran kann das liegen?

1. Du hast nicht Allgemeine Hinweise zur Forumsbenutzung gelesen. Sollen wir raten, welcher Fehler aufgetreten ist?
2. Es gibt das eigene Unterforum Basic und Java. Alle Beiträge zur Programmierung mit OO gehören in dieses Unterforum.
3. Ist diese Frage eine Ergänzung zu Bild der Listenfeld aus und einblenden? Wie kommst du darauf, sie extra und in einem anderen Unterforum zu stellen?
4. Was hat ActiveSheet mit Base zu tun? Noch ein Grund für eine falsche Fragestellung.

Nebenbei kann man so eine Fallunterscheidung einfacher formulieren:

Code: Alles auswählen

Private Sub Diagramm()
  ActiveSheet.ChartObjects("Diagramm1").Visible = CheckBox1.Value
  ActiveSheet.ChartObjects("Diagramm2").Visible = not CheckBox1.Value
End Sub

Gruß Jürgen

[zero82]

OK,

soll ich dann die gleiche Frage in das Forum Basic schreiben?

[juetho]

soll ich dann die gleiche Frage in das Forum Basic schreiben?

Nicht nötig, ein Moderator wird es verschieben. Aber ich hatte auch auf andere Unklarheiten bei deiner Frage hingewiesen. Jürgen

Nachtrag: Wozu fragst du erst, wenn du dann die Diskussion gleich neu eröffnest?