Ich stecke beim Erzeugen eines Diagramms mit VBA fest. Ich möchte ein Säulendiagramm einfügen, welches 12 nicht zusammenhängende Zellen als input hat. Ich erhalte dabei aber immer die Fehlermeldung
Laufzeitfehler '1004':
Die Values-Eigenschaft des Series-Objektes kann nicht festgelegt werden.
Merkwürdig ist: wenn ich nur 10 Zellen als input nehmen, dann funktioniert das Programm einwandfrei.
Weiss jemand, ob es in Excel (Excel 2000, Version 9.0) eine Beschränkung der Anzahl nicht zusammenhängender Input-Bereiche (10) gibt?
Und wenn ja: kenn jemand eine Möglichkeit, wie man dieses Problem umgehen kann (wie macht man ein Diagramm aus mehr als 10 nicht zusammenhängender Bereiche?)
Wäre cool, wenn mir jemand weiterhelfen könnte. Unten schicke ich den Code mit, einmal mit 10 Zellen (funktioniert) und einmal mit 12 Zellen (funktioniert nicht).
Herzlichen Dank im Voraus!
Stephan
'So funktioniert das Programm:
Public Sub test()
'Insert Diagram
Dim akt_diagramm As Chart
Worksheets("graphics").Activate
Set akt_diagramm = Charts.Add
akt_diagramm.ChartType = xlColumnClustered
akt_diagramm.SeriesCollection.NewSeries
akt_diagramm.SeriesCollection(1).Name = "=""t-2"""
'Hier kommen 10 nicht zusammenhängende Zellen als Input
akt_diagramm.SeriesCollection(1).Values = _ "=(compare_budget!R29C89,compare_budget!R29C91,compare_budget!R29C93,compare_budget!R29C140,compare_budget!R29C142,compare_budget!R29C144,compare_budget!R29C191,compare_budget!R29C193,compare_budget!R29C195,compare_budget!R29C242)"
End Sub
'So funktioniert das Programm nicht:
Public Sub test()
'Insert Diagram
Dim akt_diagramm As Chart
Worksheets("graphics").Activate
Set akt_diagramm = Charts.Add
akt_diagramm.ChartType = xlColumnClustered
akt_diagramm.SeriesCollection.NewSeries
akt_diagramm.SeriesCollection(1).Name = "=""t-2"""
'Hier kommen 12 nicht zusammenhängende Zellen als Input
akt_diagramm.SeriesCollection(1).Values = _ "=(compare_budget!R29C89,compare_budget!R29C91,compare_budget!R29C93,compare_budget!R29C140,compare_budget!R29C142,compare_budget!R29C144,compare_budget!R29C191,compare_budget!R29C193,compare_budget!R29C195,compare_budget!R29C242,compare_budget!R29C244,compare_budget!R29C246)"
End Sub