Farbe in Diagrammen

Sub DiaErgaenzen()
Dim iSpalte  As Integer
Dim lZeile   As Long
Dim intReihe As Integer
Dim blnVorhanden As Boolean
For lZeile = 12 To IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row,  _
Rows.Count)
With ActiveSheet.ChartObjects(1).Chart
For intReihe = 1 To .SeriesCollection.Count
If .SeriesCollection(intReihe).Name = Cells(lZeile, 3) Then
blnVorhanden = True
Exit For
End If
Next intReihe
If blnVorhanden = False Then
With .SeriesCollection.NewSeries
.Name = Cells(lZeile, 3)
.Values = Range(Cells(lZeile, 6), Cells(lZeile, 57))
With .Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
End With
End If
End With
blnVorhanden = False
Next lZeile
End Sub

.ForeColor.ObjectThemeColor = msoThemeColorAccent2