Chart-Bereich per VBA ändern
Christian
ich bin hier am Verzweifeln...hoffentlich könnt ihr mir weiterhelfen.
Ich habe ein Tabellenblatt mit 42 Diagrammen. Die angezeigten Daten kommen aus 42 verschiedenen Tabellenblättern. Da sich nach Änderung der Daten immer der Bereich in den Diagrammen verschiebt möchte ich den Bereich per VBA wieder eintragen.
Der Bereich ist auf jeder Seite immer E3 bis E14 (Prozente). Die Beschriftung für die X-Achse ist B3 bis B14 (Wochen). Beschriftung Y-Achse bleibt fest auf 0% bis 100%.
Mein Versuch:
Sub updateCharts()
Dim s As Integer
'For s = 2 To 43
s = 2 'zum Testen erstmal nur Seite 2
' With ActiveWorkbook.Sheets("charts").ChartObjects("charts Chart " & s)
ActiveWorkbook.Sheets("charts").ChartObjects("Chart " & s - 1).Activate
'Test zeigt Namen korrekt an
MsgBox "='" & ActiveWorkbook.Sheets(s).Name & "'!R3C2:R14C2"
'Fehler: unable to set XValues property of the series class
ActiveChart.SeriesCollection(1).XValues = "='" & ActiveWorkbook.Sheets(s).Name & "'!R3C2:R14C2"
'Fehler: unable to set the Values property of the series class
ActiveChart.SeriesCollection(1).Values = "='" & ActiveWorkbook.Sheets(s).Name & "'!R3C5:R14C5"
'ChartTitle wird korrekt eingetragen
ActiveChart.ChartTitle.Characters.Text = ActiveWorkbook.Sheets(s).Name & " % errors"
' End With
'Next s
End Sub
Ich komme hier einfach nicht weiter.
Gruß
Christian