|
Hallo,
ich möchte mithilfe einer Schleife mehrere Kurven in ein Diagramm einzeichnen. Die Daten der Kurven kommen stehen in jeweils verschiedenen Spalten und die Zeilenanzahl ist dabei variabel gestaltet und mit Schritte_v skalierbar.
Schritt_S ist meine Variable die läuft und für die Anzahl an Kurven steht und entsprechend auch der Anzahl an Spalten die ausgelesen werden sollen.
Unten ist der Code, der leider nicht funktioniert, da Range(Cells(), Cells()) in dieser kombination aus irgend einem Grund nicht funktioniert.
Weiß jemand wie man das alternativ darstellen kann??
Vielen Dank schonweil!
Dim Diagramm As ChartObject
Dim Position As Range
Set Position = Range("B60:J100")
Set Diagramm = ActiveSheet.ChartObjects.Add(Position.Left, Position.Top, Position.Width, Position.Height)
erste_Zeile = 1
Schritte_v = 200
For Schritt_S = 1 To Schritte_Steigung
With Diagramm.Chart
.ChartType = xlXYScatterLinesNoMarkers
.SeriesCollection.NewSeries
.SeriesCollection(Schritt_S).XValues = Worksheets("Fahrwiderstandsmomente").Range("G6:G206")
.SeriesCollection(Schritt_S).Values = Worksheets("Fahrwiderstandsmomente").Range(Cells(erste_Zeile + 1, 7 + Schritt_S), Cells(erste_Zeile + Schritte_v, 7 + Schritt_S))
End With
Next Schritt_S
|