Ich hab 2 Probleme
1: Lässt sich das Value nicht auch wie mit dem Assistenten angeben in der Form Arbeitblatt!A2:A14 ?
2: Kann mir jemand sagen warum diese Schleif im 2 Durchlauf beim Activate einen Fehler verursacht?
Am Count liegts nicht, wenn ich 1 od 2 fest eingebe läuft er anstandslos
Set sr = Worksheets(grafiksheet).ChartObjects
For i = 1 To sr.Count
sr.Item(i).Activate
ActiveChart.SeriesCollection(1).Values = Worksheets(datensheet).Range("D32:O32")
ActiveChart.SeriesCollection(1).XValues = Worksheets(datensheet).Range("D9:O9")
ActiveChart.SeriesCollection(2).Values = Worksheets(datensheet).Range("D43:O43")
Next i