Balkenfarbe in Abhängikeit vom Wert der Rubrikenac
Christian
ich habe ein Balkendiagramm welches für verschiedene Jahre immer automatisch absteigend sortiert werden soll. Der Balken eines Wertes soll immer rot gefärbt sein die anderen grau. Je nach Jahr kann er aber an verschiedener Stelle stehen.
Mit folgendem Code kann ich mir die Werte der Rubrikenachse auslesen:
Private Sub Worksheet_Calculate()
Dim Diagramm As Chart
Dim arrNames As Variant
Set Diagramm = ActiveSheet.ChartObjects("AbschlussAufwInProzDerVerdBB").Chart
arrNames = Diagramm.Axes(xlPrimary).CategoryNames
For i = LBound(arrNames) To UBound(arrNames)
MsgBox arrNames(i)
Next i
End Sub
Wie kann ich z.B. sagen wenn arrNames(i) = "xyz" dann färbe zugehörigen Balken rot?
Vielen Dank und viele Grüße
Chris
Anzeige