OpenOffice.info

[quote="zero82"]Fehlt da denn noch irgendetwas? :?[/quote]
Schon meine Nachfragen müssten dich darauf hingewiesen, dass die Definition und Zuweisung der Variablen fehlt. Jürgen

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

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

Wenigstens eine Zusatzinformation.
[quote]Objektvariable nicht belegt[/quote]
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 [url=http://de.openoffice.info/viewtopic.php?f=18&t=1553]Informationen zur StarBasic-Programmierung[/url] gehören [url=http://www.starbasicfaq.de/Tabellen-Calc.html]Dannenhöfers FAQs,[/url] u.a. mit Beispielen, wie auf Arbeitsblätter und Elemente zugegriffen werden kann. Jürgen

    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

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

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] 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
[/code]

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

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

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

Ich bin am verzweifeln...

Danke schonmal
zero82