Diagrammfarben automatisieren mittels VBA
13.06.2018 18:51:17
Steffi
ich möchte gern Diagramme nach bestimmten Bezeichnungen der Datenreihen immer wieder mit den gleichen Farben formatieren.
Dazu habe ich folgenden VBA-Code geschrieben:
Sub faerben()
Dim intPunkt As Integer
Dim arrXWerte()
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
arrXWerte = .XValues
For intPunkt = 1 To .Points.Count
Select Case arrXWerte(intPunkt)
Case "coal"
.Points(intPunkt).Interior.Color = RGB(0, 0, 0)
Case "lignite"
.Points(intPunkt).Interior.Color = RGB(131, 60, 12)
Case "nuclear"
.Points(intPunkt).Interior.Color = RGB(255, 192, 0)
End Select
Next intPunkt
End With
End Sub
Leider funktioniert der Code nicht bzw. passiert einfach gar nichts.
Könnt ihr mir bitte sagen, wo der Fehler liegt?
Hier ein Screenshot vom Diagramm.
Danke für eure Hilfe.
Viele Grüße
Steffi