Probleme mit Pivot und Farben - Code optimieren?
Julia
ein Pivot wird ja bei der Aktualisierung immer neu gezeichnet. Wenn ich Farben vergebe werden diese immer verloren gehen.
Ist es möglich diese fest zu vergeben?
Siehe Bsp xls hier:
https://www.herber.de/bbs/user/64321.zip
Das ich Code definiere:
Leer = gelb
Verschoben = lila
Offen = rot
In Arbeit = blau
Erledigt = grün
Egal wie die Pivot aussieht sollen diese Farben fest vergeben werden. Alos wenn nur Offen angezeigt wird soll dieses rot sein. Auch wenn man die Anordnung ändert in der Pivot soll die Farbe fest bleiben. D.h. Offen ist immer rot egal wo es steht in der Pivot (Am Anfang oder Ende)
Habe es mit diesem Codeschnipsel versucht:
Sub farbe1()
Sheets("Tabelle1").Select 'Name des Tabellenblatts
Dim s As Series, i As Long
ActiveSheet.ChartObjects("Diagramm 1").Activate 'Name des Diagramms
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
Aber sobald ich die Reihenfolge ändere oder nicht alles angezeigt wird verschieben sich die definierten Farben. Jemand eine Idee das fest zuzuordnen?