Hallo zusammen,
ich habe eine Liste mit vielen x- und y-werten und möchte diese in ein Diagramm als Kurven übertragen. Die y Werte stehen in den Spalten N bis AG und x Werte in den Spalten AH bis AX. Für einzelne Werte bekomme ich die Kurven hin, mit folgendem Befehl:
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Datos'!$AH$6:$AX$6"
ActiveChart.SeriesCollection(1).Values = "='Datos'!$N$6:$AD$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "='Datos'!$AH$7:$AX$7"
ActiveChart.SeriesCollection(2).Values = "='Datos'!$N$7:$AD$7”
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = "='Datos'!$AH$8:$AX$8"
ActiveChart.SeriesCollection(3).Values = "='Datos'!$N$8:$AD$8”
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).XValues = "='Datos'!$AH$9:$AX$9"
ActiveChart.SeriesCollection(4).Values = "='Datos'!$N$9:$AD$9”
……
Allerdings sind es insgesamt ein paar tausend solcher Kurven. Was kann ich anstellen, damit alle Werte übertragen werden? For-Schleife? Gibt es noch andere Möglichkeiten? Die Anzahl der Kurven ist auch nie gleich, sondern ist jedes Mal anders.
Ich bin ein totaler VBA-Anfänger....
Vielen Dank im Voraus.
Viele Grüße
Oli