Excel Diagrammquelle anhand von Combobox.index

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe ein kleines Program geschrieben, mit der einfach eine bestimmte auflösung bzw Quelle eines Diagramms ausgewählt werden soll. Also z.B. stündlich von dem zu dem Zeitraum.
nun gibt er mir allerdings den fehler 438 Objekt unterstützt diese eigenschaft oder methode nicht.
folgender maßen sieht das programm aus:

Private Sub CommandButton1\_Click()

Select Case ComboBox1.ListIndex
 Case "0": box1dex = 1
 Case "1": box1dex = 6
 Case "2": box1dex = 10
End Select

 With ChartObjects("Diagramm 6")
 .SeriesCollection(1).Values = "=Tabelle2!R" & CStr(ComboBox2.ListIndex + 2) & "C" & CStr(box1dex + 1) & ":R" & CStr(ComboBox3.ListIndex + 2) + "C" & CStr(box1dex + 1)
 End With

End Sub

Setze ich den Überwachungsausdruck drauf an, so sagt er mir, dass der Ausdruck existiert bzw auch richtig ist… aber versucht er den ausdruck zu setzen so schießt er den fehler aus…

Vielen dank im voraus

Johannes

#2

Hallo Johannes,

nun gibt er mir allerdings den fehler 438 Objekt unterstützt
diese eigenschaft oder methode nicht.

Grundsätzlich ist es angesagt zu sagen in welcher Codezeile der Fehler kommt.
Auch ob es sich um eine UF handelt oder nicht.

Teste mal dieses:

 With ChartObjects("Diagramm 6")
 MsgBox "=Tabelle2!R" & CStr(ComboBox2.ListIndex + 2) & "C" & CStr(box1dex + 1) & ":R" & CStr(ComboBox3.ListIndex + 2) + "C" & CStr(box1dex + 1)
 .SeriesCollection(1).Values = "=Tabelle2!R" & CStr(ComboBox2.ListIndex + 2) & "C" & CStr(box1dex + 1) & ":R" & CStr(ComboBox3.ListIndex + 2) + "C" & CStr(box1dex + 1)
 End With

Gruß
Reinhard