Variable Eintragungen in ein Diagramm mit VBA

[tj1980]

Hallo zusammen,
Ich bin neu hier im Forum und hoffe dies richtig platziert zu haben.

ich habe 12 Tabellenblätter in denen die Datensätze stehen. 
Ich möchte nun in einem Diagramm mal 2 oder mal 3 Datensätze / Reihen miteinander vergleichen.
Dies soll durch Schaltflächen aktiviert werden. 
Also Schaltfläche gedrückt = Daten in Diagramm 
Schaltfläche nicht gedrückt = Daten aus Diagramm löschen.
Als Startvorraussetzung ist das Diagramm leer, ohne Datenreihen

Grundsätzlich habe ich die Eintragung gefunden wie sie funktioniert. 
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=""Gruppe 1"""
    ActiveChart.FullSeriesCollection(1).Values = "='Gruppe 1'!$J$4:$J$25"



Das Problem ist wenn ich das Macro ausführe, wird immer eine neue Datenreihe erstellt und immer die erste mit Datenreihe überschrieben.

Egal in welcher Reihenfolge ich 1, 2 oder mehr Gruppen auswähle, soll eine Datenreihe mit dem Gruppennamen erstellt werden inklusive der dazugehörigen Daten.
Es soll also überprüft werden wie viele Datenreihen schon vorhanden sind und anschließend die neue erzeugt werden.

Ich hoffe ich konnte mich verständlich ausdrücken.

Grus TJ

[Matthias84]

Hallo,

probiere mal:

Code:

    With ActiveSheet.ChartObjects(1).SeriesCollection.NewSeries
        .Name = "=""Gruppe 1"""
        .Values = "='Gruppe 1'!$J$4:$J$25"
    End With

Aufgrund fehlender Beispieldatei ungetestet!