Hier eine Beispiel-Tabelle: https://www.herber.de/bbs/user/121853.xlsm
Wenn Excel Diagramme erstellt, werden die Farben pro Wert/Kategorie ja zufällig ausgewählt. Ich hätte aber gerne für eine Kategorie, der ein Wert zugeordnet ist, immer die gleiche Farbe, deshalb habe ich mir folgendes Makro zugelegt:
Sub DiagrammFormat()
Dim i As Long
Dim Farbe As Integer
With ActiveChart.SeriesCollection(1)
For i = 1 To .Points.Count
Select Case WorksheetFunction.Index(.XValues, i)
Case "Verderb"
Farbe = 6 ' Gelb
Case "zu viel"
Farbe = 5 ' Blau
Case "Transport"
Farbe = 3 ' Rot
Case "Sonstiges"
Farbe = 13 ' Violett
Case "zu spät"
Farbe = 46 ' Orange
End Select
.Points(i).Interior.ColorIndex = Farbe
Next
End With
End Sub
Allerdings funktioniert das Makro NICHT bei gestapelten Daten, und NICHT bei Treemap-Diagrammen, was ich aber beides verwende.Hat mir jemand einen Tipp, was ich machen könnte, um mein Problem zu lösen?
Vielen Dank schonmal im Voraus.
Grüße
Sarah