Clever-Excel-Forum

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

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

der_benz

Elex