Office: (Office 2016) Balkenfarbe in einem Diagramm automatisch ändern

Moin zusammen!

Ich möchte aus einer kleinen Tabelle mit nur vier Zeilen ein Diagramm erstellen, bei dem ein Balken abhängig vom Inhalt die Farbe ändert.
Dazu existieren viele Anleitungen die im wesentlichen dem Schema unter 50% grün und über 50 % rot folgen.
Hier ist die Herausforderung eine andere.
Der Balken wird aufgrund des Wertes aus einer Zelle (Dauer) erzeugt, soll aber die Farbe aufgrund des Inhalts einer anderen Zelle(Art) zugewiesen bekommen.
Zur Verdeutlichung stelle ich mal die einfache Tabelle ein.

Würde mich freuen wenn mir einer helfen könnte.

Liebe Grüße

Fritz-237

 

Hi Fritz,

ändert sich die Art der Zuweisung oder bleibt sie immer gleich?

Bis später,
Karin

 

Moin Karin,

Die Zuweisung bleibt gleich da es sich um einen unveränderlichen Typ handelt.

Bin gespannt auf die Antwort.

LG
Fritz

 

Hi Fritz,

es wäre schön gewesen wenn du angegeben hättest, dass die Farben durch bedingte Formatierung erzeugt werden...

Das ganze lässt sich nur mit einem Makro lösen:

Code:

Sub BalkenFaerben()
    Dim strFormel As String
    Dim lngPunkt As Long
    With ActiveSheet.ChartObjects(1).Chart
        strFormel = Application.Substitute(Split(.SeriesCollection(4).Formula, ",")(2), ")", "")
        With .SeriesCollection(3)
            For lngPunkt = 1 To .Points.Count
                .Points(lngPunkt).Format.Fill.ForeColor.RGB = Range(strFormel).Cells(lngPunkt).DisplayFormat.Interior.Color
            Next lngPunkt
        End With
    End With
End Sub

Bis später,
Karin