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

Ich habe dann vorhin erfahren, dass diese Methode auch möglich ist:

Code: Alles auswählen

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

Aber hier zeigt er mir den Fehler Objektvariable nicht belegt an.

Ich bin am verzweifeln...

Danke schonmal
zero82

[juetho]

Wenigstens eine Zusatzinformation.

Objektvariable nicht belegt

An dieser Stelle ist dein ursprünglicher ausführlicher Code ausnahmsweise hilfreich: Tritt der Fehler bereits in der IF-Zeile auf? Dann ist eindeutig die Variable CheckBox1 unbekannt. Andernfalls dürfte es um ChartObjects("Diagramm1") oder sogar ActiveSheet gehen.

Zu den grundlegenden Informationen zur StarBasic-Programmierung gehören Dannenhöfers FAQs, u.a. mit Beispielen, wie auf Arbeitsblätter und Elemente zugegriffen werden kann. Jürgen

[balu]

Hallo zero82,

ist das der gesamte Code?
Wenn nicht, dann häng mal die Datei hier an damit wir uns das genauer anschauen können.



Gruß
balu

[zero82]

doch es handelt sich um den gesamten Code. Fehlt da denn noch irgendetwas?

[juetho]

Fehlt da denn noch irgendetwas?

Schon meine Nachfragen müssten dich darauf hingewiesen, dass die Definition und Zuweisung der Variablen fehlt. Jürgen