Leider funktioniert diese Lösung nur, wenn ich das Diagramm im
gleichen Sheet erstelle. Also in einem Extra Tab - Diagramm
klappt das nicht.
Das liegt an deiner unvollständigen Bezeichnung der Cell-Adressen.
Versuch mal folgendes:
Dim ws as Worksheet
set ws = Worksheets(„System“)
ActiveChart.SeriesCollection(1).XValues = ws.Range(ws.cells(1,1), ws.cells(Rows.Count,1).End(xlUp))
Auch innerhalb der Range-Methode solltest Du mit voll qualifizierten Bezeichnern arbeiten.
Das liegt an deiner unvollständigen Bezeichnung der
Cell-Adressen.
Versuch mal folgendes:
Dim ws as Worksheet
set ws = Worksheets(„System“)
ActiveChart.SeriesCollection(1).XValues =
ws.Range(ws.cells(1,1), ws.cells(Rows.Count,1).End(xlUp))
Auch innerhalb der Range-Methode solltest Du mit voll
qualifizierten Bezeichnern arbeiten.