Balkenfarbe im Diagramm fixieren

24.12.2025 00:17:21

Daniel Weiss

Hallo zusammen,

ich habe mehrere Balken-Diagramme für meine (bisherigen) Autos, monatliche Kosten, gefahrene Kilometer, Verbrauch etc.
Die Balkendiagramme sind absteigend nach den Werten sortiert, die laufenden Kosten bzw. der Verbrauch ändert sich laufend.
Mit jeder neuen Sortierung verschiebt sich die Diagrammfarbe:

Beispiel Diagramm Spritverbrauch: 14 Balken im Diagramm, der Citroen ist an 3. Position mit dem Wert 7,44 Liter. Nach dem Tanken ändert sich der Durchschnittsverbrauch auf 7,20 Liter, der Citroen rutscht somit hinter den Opel. Nach Sortierung der Werte ändert sich auch die Farbe des Balkens im Diagramm (rot = Opel, blau = Citroen) und plötzlich hat der Citroen die Farbe rot des Opels.

Wie kann ich die Farben der Balken fixieren?
Unter Optionen - Erweitert - Diagramm - Eigenschaften orientieren sich am Diagrammdatenpunkt für alle neuen Arbeitsmappen / in der aktuellen Arbeitsmappe - diese beiden Punkte sind abehakt. Trotzdem ändert sich bei einer neuen Sortierung (oder absteigenden/aufsteigenden Sortierung die zugewiesenen Farben.

Gibt es eine Möglichkeit dies zu fixieren?
Die Farben jedesmal zu korrigieren ist eine Möglichkeit, aber nicht wirklich zeitgemäß...

Danke für eure Hilfe.

AW: Balkenfarbe im Diagramm fixieren

24.12.2025 11:50:45

Beverly

Hi Daniel,

welchen Diagrammtyp verwendest du? Versuche es mal mit "Gruppierte Balken" (bzw. "Guppierte Säulen" falls es sich um ein Säulendiagramm handelt).

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Balkenfarbe im Diagramm fixieren

24.12.2025 13:28:01

Daniel Weiss

Hallo Karin, ich verwende Säulendiagramme, gruppierte Säulen. Hab einen Screenshot angehängt.
Sobald ich die Werte neu sortiere, verändern sich die Farben.

AW: Balkenfarbe im Diagramm fixieren

25.12.2025 13:56:04

Beverly

Hi Daniel,

in deinem Beitrag befindet sich kein Screenshot.
Außerdem solltest du besser eine Beispieldatei hochladen anstelle eines Screenshots - dann kann man nachvollziehen wie das Diagramm aufgebaut ist und wie die zugrundeliegenden Daten positioniert sind.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Balkenfarbe im Diagramm fixieren

26.12.2025 20:49:08

Daniel Weiss

Hallo Karin,

anbei die Beispieldatei - hoffe der Upload funktioniert jetzt.

Danke,
Daniel

AW: Balkenfarbe im Diagramm fixieren

27.12.2025 00:56:54

Beverly

Hi Daniel,

du musst nach dem Hochladen der Mappe den Link kopieren und diesen dann hier im Beitrag einfügen - nur so funktioniert es.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Balkenfarbe im Diagramm fixieren

27.12.2025 01:05:01

Daniel Weiss

Danke Karin, hier der Link: https://www.herber.de/bbs/user/179917.xlsm

AW: Balkenfarbe im Diagramm fixieren

27.12.2025 13:25:38

daniel

Hi
Die Farbe im Diagramm bestimmt sich über die Reihenfolge.
du könntest folgenden Workaround machen, wenn die Balkenfarbe beim Umsortieren konstant bleiben soll:

1. erweitere die Liste in eine Kreuztabelle, bei der die Fahrzeuge in Zeilen und Spalten stehen.
im Kreuzungspunkt (Name in Zeile und Spalte gleich) trägst du dann den Wert ein, die restlichen Zellen dieser Zeile und Spalte bleiben leer (kann man auch per Formel machen, so dass du nur die Ausgangsliste pflegen musst),

2. mach aus dem einfachen Säulendiagramm ein gestapeltes Säulendiagramm. Die Farbe ergibt sich dann aus der Reihenfolge im Stapel, dh aus der Reihenfolge in den Spalten.
Dann kannst du die Zeilen beliebig sortieren, solange die Reihenfolge der Spalten gleich bleibt, bleibt auch die Farbe für den jeweiligen Eintrag gleich.

schau dir ma das Beispiel an.
https://www.herber.de/bbs/user/179919.xlsm

Gruß Daniel

AW: Balkenfarbe im Diagramm fixieren

27.12.2025 19:25:57

Beverly

Hi Daniel,

der einfachste Weg ohne großen Aufwand ist, wenn du es per VBA löst. Da du in der Mappe bereits ein Makro hast, sollte das eigentlich kein Problem sein.

Die Lösung würde folgendermaßen aussehen:

1. alle derzeitigen Farben, die du wahrscheinlich von Hand zugewiesen hast, müssen aus den Diagrammen ins Tabellenblatt in die relevante Zelle, in der sich die betreffenden Daten befinden, übertragen werden, also in die Spalte, in der die Rubriken (Autonamen) stehen. Dazu kannst du die einzelnen Zellen natürlich von Hand einfärben oder einfach folgendes Makro verwenden:

Sub Punkte_uebertragen()

    Dim chrDia As ChartObject

    Dim intPunkt As Integer

    Dim rngFarbe As Range

    Dim arrXWerte()

    Dim sterBereich As String

    For Each chrDia In ActiveSheet.ChartObjects

        strBereich = Split(chrDia.Chart.SeriesCollection(1).Formula, ",")(1)

        For intPunkt = 1 To chrDia.Chart.SeriesCollection(1).Points.Count

            Range(strBereich).Cells(intPunkt).Interior.Color = chrDia.Chart.SeriesCollection(1).Points(intPunkt).Interior.Color

        Next intPunkt

    Next chrDia

End Sub

Allerdings musst du für die Säule, für die du einen Farbverlauf ausgewählt hast (Alfa 159), eine einfache Farbe ohne Farbverlauf nehmen - z.B. einfach Orange.

Dieses Makro musst du selbstverständlich nur einmalig ausführen.

2. Das eigentliche Makro zum Färben der einzelnen Säluen, nachdem die einzelnen Tabellen umsortiert wurden, sieht dann so aus:

Sub Punkte_faerben()

    Dim chrDia As ChartObject

    Dim intPunkt As Integer

    Dim rngFarbe As Range

    Dim strBereich As String

    Dim arrXWerte()

    For Each chrDia In Worksheets("Übersicht").ChartObjects

        arrXWerte = chrDia.Chart.SeriesCollection(1).XValues

        strBereich = Split(chrDia.Chart.SeriesCollection(1).Formula, ",")(1)

        chrDia.Chart.SeriesCollection(1).Format.Fill.Visible = msoTrue

        For intPunkt = 1 To chrDia.Chart.SeriesCollection(1).Points.Count

            Set rngFarbe = Range(strBereich).Find(arrXWerte(intPunkt), lookat:=xlWhole, LookIn:=xlValues)

            If Not rngFarbe Is Nothing Then chrDia.Chart.SeriesCollection(1).Points(intPunkt).Interior.Color = rngFarbe.Interior.Color

        Next intPunkt

    Next chrDia

End Sub

Sobald du eine deiner Tabellen neu sortiert hast, musst du das Makro selbstverständlich neu ausführen, damit die Veränderungen wirksam werden können.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Balkenfarbe im Diagramm fixieren

28.12.2025 19:01:40

Daniel Weiss

Hallo Karin, herzlichen Dank! Genau so habe ich es mir vorgestellt, wunderbar :) Habe noch

Application.OnTime Now + TimeValue("00:01:00")

hinzugefügt, somit aktualisiert sich das Makro alle Minuten wie das bereits vorhandene Makro.

Besten Dank und einen guten Rutsch :)

Daniel

Balkenfarbe im Diagramm fixieren

Forumthread: Balkenfarbe im Diagramm fixieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Balkenfarbe im Diagramm fixieren

Forumthread: Balkenfarbe im Diagramm fixieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread