Alle Pivotdiagramme - Code anpassen

Sub farbe1()
Dim s As Series, i As Long
WorkSheets("Test").Activate  'Wenn Tabellenblatt nicht schon sowieso aktiv ist
ActiveSheet.ChartObjects("Diagramm 2").Activate
i = 1
For Each s In ActiveChart.SeriesCollection
Select Case i
Case 1
s.Interior.ColorIndex = 49
Case 2
s.Interior.ColorIndex = 1
Case 3
s.Interior.ColorIndex = 55
Case 4
s.Interior.ColorIndex = 56
Case 5
s.Interior.ColorIndex = 52
Case 6
s.Interior.ColorIndex = 53
End Select
If i = 6 Then i = 1 Else i = i + 1
Next s
End Sub