.
.
.
For j = 0 To UBound(str_mark_points)
.SeriesCollection.NewSeries
.SeriesCollection(j + 2).Values = ws_auswertung.Range(ws_auswertung.Cells(i * (UBound(str_mark_points) + 1 + 1) + 2 + j + 1, 3), ws_auswertung.Cells(i * (UBound(str_mark_points) + 1 + 1) + 2 + j + 1, anzahl_tage + 3))
'.SeriesCollection(j + 2).Border.LineStyle = xlNone
'.SeriesCollection(j + 2).MarkerBackgroundColorIndex = j
'.SeriesCollection(j + 2).MarkerForegroundColorIndex = j
'.SeriesCollection(j + 2).MarkerStyle = xlDiamond
'.SeriesCollection(j + 2).Smooth = False
'.SeriesCollection(j + 2).MarkerSize = 7
'.SeriesCollection(j + 2).Shadow = False
Next j
.
.
.
Die Auskommentierten will er alle nicht fressen. Ich versteh nicht warum. Wäre nett wenn mir jemand einen Tipp geben könnte