|
Hey morgen,
ich habe unten den Code für ein Diagramm, in welches über eine Schleife verschiedene Kurven geplottet werden.
Dieses wird in einem neu erstellten Tabellenblatt gezeichnet.
Wie kann ich dies, dass die Schleife nach wie vor funktioniert, auch in einem Diagrammblatt plotten lassen?
Dim Diagramm As ChartObject
Dim Position As Range
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = "DiagrammFahrwiderstandsmomente"
End With
Set wsNew = Nothing
Set Position = Range("B2:N35")
Set Diagramm = Worksheets("DiagrammFahrwiderstandsmomente").ChartObjects.Add(Position.Left, Position.Top, Position.Width, Position.Height)
For Schritt_S = 1 To Schritte_Steigung
variable = Range(Cells(erste_Zeile + 1, 7 + Schritt_S), Cells(erste_Zeile + Schritte_v, 7 + Schritt_S)).Address
With Diagramm.Chart
.ChartType = xlXYScatterLinesNoMarkers
.SeriesCollection.NewSeries
'.SeriesCollection(1).XValues = Worksheets("Fahrwiderstandsmomente").Range("G6:G206")
.SeriesCollection(Schritt_S).XValues = Worksheets("Fahrwiderstandsmomente").Range("G6:G206")
.SeriesCollection(Schritt_S).Values = Worksheets("Fahrwiderstandsmomente").Range(variable)
'.SeriesCollection(1).Values = Worksheets("Fahrwiderstandsmomente").Range(Cells(6, 8), Cells(206, 8))
End With
Next Schritt_S
|