Hallo zusammen,

ich habe ein xy-Diagramm mit einigen Datenreihen erstellt. Jetzt möchte ich weitere hinzufügen, was ich aufgrund der großen Anzahl an Datenreihen mit einem Makro erledigen möchte.

Meine Wertetabelle sieht so aus: In Spalte A die x-Werte, in Spalte B die y-Werte von Reihe 1, Spalte C die von Reihe 2 usw.
Die ersten fünf Reihen habe ich schon, aber es sind insgesamt ca. 50 und jeden Tag kommen weitere hinzu.


Mit dem Makro komme ich so weit:

i = 6
WHILE (i<51)

Sheets("Diagramm").Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).XValues = "=Werte!R2C1:R120C1"
ActiveChart.SeriesCollection(i).Values = "=Werte!R2C6:R120C6"
ActiveChart.SeriesCollection(i).Name = "=Werte!R1C6"

i=i+1

WEND

Die Nummer der jeweils anzulegenden Datenreihe kann ich über den Zähler i in „SeriesCollection(i)“ in der WHILE-Schleife verändern.

Aber wie kann ich den Zähler i in den Ausdruck „=Werte!R2C6:R120C6“ einbauen, so dass die Spalte mit hochgezählt wird (R2C7, R2C8 usw.)?

So was wie „=Werte!R2C(i):R120C(i)“ geht natürlich nicht.


Könnt ihr mir helfen? Danke schon mal für eure Antworten!
Gruß, Heiko1985