Public g_Farbe() As col
Public Type col
    Rot As Integer
    Gruen As Integer
    Blau As Integer
End Type

g_Farbe(i).Rot = 120: g_Farbe(i).Gruen = 120: g_Farbe(i).Blau = 120

For i = 1 To Chart.ColumnCount
    With msc_FG.Plot.SeriesCollection(i)
      '.Plot.SeriesCollection(i).LegendText = arr_Schichtarten(i - 1)
      .LegendText = arr_Schichtarten(i - 1)
      .Pen.VtColor.Set g_Farbe(i - 1).Rot, g_Farbe(i - 1).Gruen, g_Farbe(i - _
        1).Blau
      .DataPoints(-1).Brush.FillColor.Set g_Farbe(i - 1).Rot, g_Farbe(i - _
      1).Gruen, g_Farbe(i - 1).Blau
    End With
 
 Next

Wer aufhört sich zu verbessern, hört auf gut zu sein.