Datenreihen per Makro in Diagramm einfügen?

Question

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

Answer 1

Hi Heiko,

"=Werte!R2C" & i & ":R120C" & i

Bis später,
Karin

Answer 2

Da hätte ich eigentlich drauf kommen können.
Ist ja genau wie in Excel. (= "Text "&123&" Text".)



Vielen Dank für die schnelle Hilfe!!!

Answer 3

Ich bin’s noch mal…

Es hat geklappt, so wie Du es geschrieben hattest.
Nur habe ich jetzt das nächste Problem, welches ich nicht verstehe:

Excel nimmt jetzt die Zeile

ActiveChart.SeriesCollection(i).Name = "='Werte'!R1C6"

nicht mehr an. („Anwendungs- oder objektdefinierter Fehler“)


Es geht nur mit

ActiveChart.SeriesCollection(i).Name = "='Werte'!$F$1"

Aber bei dieser Schreibweise kann ich den Namen der Spalte ja nicht durch einen Zähler ersetzen…



Könntest Du mir nochmal helfen, bitte?