Farbformatierung Diagramm nach Zellenfarbe

[der_benz]

Moin zusammen,

ich habe ein Ringdiagramm erstellt und möchte, dass die Farbe der einzelnen Segmente identisch mit der Zellenfarbe der Inputwerte ist.
Gleichzeitig soll diese Zuweisung dynamisch sein.

Hinweise:

1. Die 12.5% wurden gewählt, da das Diagramm im eigentliche Sinne keine Verteilung darstellt, sondern lediglich für eine Visualisierung geeignet ist.
2. Wenn die Bedrohungslage über die Dropdown-Liste geändert wird, soll sich auch die entsprechende Farbe im Diagramm ändern.

Da ich mich nur bedingt mit VBAs auskenne und die Programmierung von anderen Threads leider auch mit Anpassungsversuchen nicht funktionieren nun dieser Beitrag.

Vielen Dank für eure Hilfe!

Viele Grüße
Alex

[Elex]

Hallo

der Code in das Blattmodul. 

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Long, Farbe As Long

If Target.Column = 2 And Target.Row > 6 And Target.Row < 15 Then
    ActiveSheet.ChartObjects("Bedrohungslage").Activate
    ActiveChart.ChartGroups(1).VaryByCategories = False
   
    With ActiveChart.SeriesCollection(1)
      For j = 1 To 8
         Select Case Cells(6 + j, 2).Value
           Case "Mittel"
             Farbe = RGB(255, 255, 0)
           Case "Hoch"
             Farbe = RGB(255, 0, 0)
           Case "Erheblich"
             Farbe = RGB(255, 192, 0)
           Case "Niedrig"
             Farbe = RGB(146, 208, 80)
           Case "Nicht bewertet"
             Farbe = RGB(217, 225, 242)
         End Select
         .Points(j).Format.Fill.ForeColor.RGB = Farbe
      Next j
    End With
End If
End Sub

Gruß Elex