A = ActiveSheet.ChartObjects("Diagramm 1").Chart.SeriesCollection.Count + 1
g = 8914 + Range("D11")
D = Cells(g, 45)
E = Cells(g, 39)
F = Cells(g, 43)
ActiveSheet.ChartObjects("Diagramm 1").Activate
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(A).Name = Range("(AQ8914):F")
ActiveChart.FullSeriesCollection(A).XValues = Range("AS8914:D")
ActiveChart.FullSeriesCollection(A).Values = "Cells(8914,39):f"
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.FullSeriesCollection(A).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
End With
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
With Selection.Format.Line
.Visible = msoTrue
.DashStyle = msoLineDash
End With
ging aber nicht so richtig