Datenreihe bei Diagramm hinzufügen mit ActiveCell.Offset

[Abitus]

Das Problem bin ich Umgangen, Daten und Diagramm befinden sich jetzt auf einem Tabellenblatt. Mit Hilfe von ActiveChart.SeriesCollection.Add Source:=ActiveCell.Offset(2, 6).Range("A1:A11") füge ich immer wieder neue Datenreihen hinzu (so was ähnliches wie ein dynamisches Diagramm?). Eine Lösung, um das gleiche bei verschiedenen Arbeitsblättern zu erreichen, habe ich bisher leider nicht.

[schauan]

Hallo Abitus,

hier mal ein Code, wie Du von einem beliebigen Blatt, z.B. Tabelle1 aus, das Diagramm auf Tabelle2 änderst:

Code:

Sub Makro1()
With Sheets("Tabelle2").ChartObjects("Diagramm 1").Chart
  .SetSourceData Source:=ActiveCell.Offset(0, 1).Range("A11:B11")
End With
End Sub

Die Frage war ja, ob die aktive Zelle auf einem anderen Blatt oder auf dem aktiven ist, das war nicht so klar aus der Aufgabe herauszulesen. Ich gehe nun davon aus, dass die aktive Zelle auf dem aktiven Blatt gemeint ist und das Diagramm anderswo steckt.

[Abitus]

Hallo Schauan,

vielen Dank für deinen Code, das funktioniert perfekt! (Aktive Zelle auf aktivem Blatt, Diagramm 1 befindet sich aber auf anderem Tabellenblatt)

So sieht mein Code jetzt aus:

Code:

Sub Makro1()

With Sheets("Tabelle2").ChartObjects("Diagramm 1").Chart
 .SeriesCollection.Add Source:=ActiveCell.Offset(0, 1).Range("A1:A11")
End With

End Sub