Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Untersch. Farbe in Diagramm je nach Wert

Forumthread: Untersch. Farbe in Diagramm je nach Wert

Untersch. Farbe in Diagramm je nach Wert
Tim
Hallo an alle,
ich habe eine Frage zu einem einfachen (Säulen-)Diagramm und hoffe, Ihr könnt mir weiterhelfen:
Gibt es hier eine Möglichkeit, dass die Säulen automatisch eine bestimmte Farbe erhalten, je nachdem, wie groß der zugrundeliegende Wert ist, ähnlich wie einer bedingten Formatierung im Bezug auf Zellen ?
Beispiel:
Ist der Wert einer Säule 50 oder kleiner, soll sie rot erscheinen, liegt er zwischen 50 und 100 orange etc.
Insgesamt gibt es 5 verschiedene Bereiche, in denen sich der Wert einer Säule bewegen kann.
Viele Grüße und vielen Dank Euch im Voraus für jeden Tipp,
Tim
Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 21:04:41
Tim
Hallo,
ich habe im Netz folgenden Code gefunden.
Hier habe ich jedoch zwei Probleme:
1) Ich muss immer auf das Diagramm klicken bevor ich den Code laufen lasse.
2) Wenn der Code läuft, färbt er zwar die Diagrammbalken ein, allerdings mit völlig anderen Farben, als von mir in den Zellen A17:A21 vorgegeben.
VG und nochmals danke für jeden Tipp,
Tim
Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 22:00:43
Beverly
Hi Tim,
schau dir mal das Beispiel Balkenfarbe Referenzabhängig auf meiner HP, Seite "Diagramme" an ( Link zur Vorschau ) - das bezieht sich zwar auf ein Balkendiagramm, ist aber bei einem Säulendiagramm genau so.

Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 22:31:45
Tim
Hallo Karin,
vielen Dank für Deine Antwort !
Das ist glaube ich nicht ganz, wonach ich suche oder ich habe es falsch verstanden.
Ich kann hier leider nur die Vorschau, nicht aber den eigentlichen Link öffnen, das liegt wohl an den Sicherheitseinstellungen hier.
Ich suche nach einem Weg, dass die Säulen automatisch eine bestimmte Farbe erhalten, je nach dem, in welchem Bereich sich der entsprechende Wert gerade befindet (0-49 = rot, 50 bis 99 = orange, 100 bis 149 = grün, 150 bis 199 = blau, ab 200 = lila).
VG und nochmals danke,
Tim
Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 22:42:52
Tim
Hallo,
hier noch ein kleiner Nachtrag:
Das Problem mit dem benötigten Anklicken des Diagramms habe ich gelöst.
Was mir jetzt nur noch fehlt, ist eine Möglichkeit, Farben exakt definieren zu können, da in meinem Code die Balken vollkommen anders eingefärbt werden, als ich in den entsprechenden Zellen vorgegeben habe.
VG,
Tim
Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 22:55:05
Josef

Hallo Tim,
in Zeile x kannst du doch die Farben bestimmen.

« Gruß Sepp »

Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 23:18:00
Tim
Hallo Sepp,
vielen Dank und sorry, ich hatte wohl vergessen, den Code zu posten - hier mein letzter Stand der Dinge:
Es funktioniert alles, nur, dass ich hier eben die Farben nicht genau festlegen kann.
Option Explicit
Sub ColorByValue()
Dim rPatterns As Range
Dim iPattern As Long
Dim vPatterns As Variant
Dim iPoint As Long
Dim vValues As Variant
Dim rValue As Range
Set rPatterns = ActiveSheet.Range("A17:A21")
vPatterns = rPatterns.Value
ActiveSheet.ChartObjects("Chart 2").Activate
With ActiveChart.SeriesCollection(1)
vValues = .Values
For iPoint = 1 To UBound(vValues)
For iPattern = 1 To UBound(vPatterns)
If vValues(iPoint)
VG,
Tim
Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 23:29:09
Josef

Hallo Tim,
Sub ColorByValue()
  Dim rPatterns As Range
  Dim iPattern As Long
  Dim iPoint As Long
  Dim vValues As Variant
  Dim rValue As Range
  
  With ActiveSheet
    Set rPatterns = .Range("A17:A21")
    
    With .ChartObjects("Chart 2").Chart.SeriesCollection(1)
      vValues = .Values
      For iPoint = 1 To UBound(vValues)
        For iPattern = 1 To rPatterns.Count
          If vValues(iPoint) <= rPatterns(iPattern, 1) Then
            .Points(iPoint).Format.Fill.ForeColor.RGB = rPatterns(iPattern, 1).Interior.Color
            Exit For
          End If
        Next
      Next
    End With
  End With
  
End Sub



« Gruß Sepp »

Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 23:40:11
Tim
Hallo Sepp,
vielen vielen Dank dafür - das ist spitze !! :-)
Ich habe nur noch eine kleine Frage dazu:
Auf meinem Blatt sind insgesamt 5 Diagramme, für die alle das gleiche gelten soll.
Kann ich die hier irgendwie einbinden oder muss ich den Hauptteil des Codes fünf mal kopieren ?
VG und nochmals danke,
Tim
Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 23:43:23
Josef

Hallo Tim,
wenn der Farbbereich für alle der selbe ist, dann so.
Sub ColorByValue()
  Dim objChrt As ChartObject
  Dim rPatterns As Range
  Dim iPattern As Long
  Dim iPoint As Long
  Dim vValues As Variant
  Dim rValue As Range
  
  With ActiveSheet
    Set rPatterns = .Range("A17:A21")
    For Each objChrt In .ChartObjects
      With objChrt.Chart.SeriesCollection(1)
        vValues = .Values
        For iPoint = 1 To UBound(vValues)
          For iPattern = 1 To rPatterns.Count
            If vValues(iPoint) <= rPatterns(iPattern, 1) Then
              .Points(iPoint).Format.Fill.ForeColor.RGB = rPatterns(iPattern, 1).Interior.Color
              Exit For
            End If
          Next
        Next
      End With
    Next
  End With
  
End Sub



« Gruß Sepp »

Anzeige
AW: Untersch. Farbe in Diagramm je nach Wert
16.08.2012 23:54:15
Tim
Hallo Sepp,
das klappt absolut super - vielen Dank nochmal für die tolle Hilfe !
VG und bis zum nächsten Mal, :)
Tim
;

Forumthreads zu verwandten Themen

Balkendiagramm verschiedene Farben je nach Name
kathy

Hallo Leute,
ist es möglich, in einem Balkendiagramm je nach Raum unterschiedliche Farben automatisch zuzuordnen?
https://www.herber.de/bbs/user/69129.xlsx
Bin für jede Hilfe dankbar.
Gruß
kathy
17.04.2010 09:49:23
Thread-ID: 1152315
5 Beiträge
Füllfarbe nach Wahrheitswert ausgeben
Tina

Hallo Zusammen,
Meine Problem von Gestern:
Der Wert aus Zeile A2 soll in der Spalte B: Zeilen 2 bis 100, gesucht werden und in Zeile C2 ausgegeben werden. Bei GENAU demselben Wert soll ein x ausgegeben und andernfalls ein - ausgegeben werden.
habe ich Dank der Hilfe hier gelöst beko...
30.01.2013 10:45:07
Thread-ID: 1296653
3 Beiträge
Anzeige
Balken im Diagramm nach Wert färben
Stefan

Hallo,
Ich möchte gerne unsere derzeit von Hand gepflegte Plantafel für die Produktion durch ein Excel Diagramm ersetzen, da dies eine große Zeitersparnis bedeuten würde.
Ich habe mir mal die Mühe gemacht und mir in Excel eine Arbeitsmappe erstellt, mit der ich die Daten per Button aus...
01.04.2015 15:50:33
Thread-ID: 1418529
5 Beiträge
Diagramm hor. Balken Farbe werteabhängig
Lukas

Hallo zusammen,
ich möchte die Daten einer langen Messreihe in einem Diagramm darstellen. Bei den Messwerten handelt es sich um Temperaturdaten. Dargestellt werden soll im Grund nur, ob der gemessene Wert über oder unter einem bestimmten Wert liegt.
Dazu wird an anderer Stelle für jede...
17.11.2015 17:12:37
Thread-ID: 1459046
7 Beiträge
Anzeige
Zellen unterschiedlich färben nach bestimmten Wert
Daniel

Hallo!
Ich wäre euch verbunden wenn ihr mir bei einem Problem weiterhelfen könntet.
Beschrieben habe ich es in der angehängten Excel Datei.
Es geht darum eine Zelle automatisch nach bestimmten Werten zu färben.
https://www.herber.de/bbs/user/102714.xlsx
Vielen Dank im Vorau...
11.01.2016 09:24:42
Thread-ID: 1468086
5 Beiträge
Farbewechsel nach Werteänderung
Claudia

Hallo zusammen,
ich habe eine Datei mit ca. 3.000 Datensätzen. Die Kundennummern befinden sich in Spalte A und werden untereinander geschrieben. Zu 99 % findet sich eine Kundennummer in mehreren Zeilen z.B. Zeile 3, 4, 5.
Ich bräuchte zur besseren Hervorhebung, wann eine andere Kundennu...
14.03.2017 11:55:32
Thread-ID: 1547260
7 Beiträge
Diagrammbalken nach Wert färben
Silke

Hallo, habe ein Diagramm, was aus Werten einer Tabelle gespeist wird.
Der letzte Diagrammbalken im Dreier-Block ist zur Zeit grau-schwarz.
Ist es möglich diesen letzten Diagrammbalken ROT zu färben,
wenn der Datenwert u n t e r 8,5 V sinkt,...
15.09.2017 18:54:10
Thread-ID: 1580755
3 Beiträge
Diagramm formatieren je nach Wert
Silvana

Hallo, ich möchte mit VBA die Balken eines Diagramms farblich haben. Die Datentabelle Werte sind bereits berechnete Werte aus anderen Tabellen. Relevant für das Diagramm sind Spalte A und B . In Spalte C habe ich jedoch eine Hilfespalte hinzugefügt und anhand von den Werten dann die Balken färb...
27.07.2018 11:21:38
Thread-ID: 1636208
6 Beiträge
Wertung nach Farben
Udo

Hallo Leute,Geht das Wertung nach Zahlen.Zum Beispiel:Grün +1
Gelb +1
Rot -1
Grau -1Rechnung Grün +1, Gelb +1, Rot -1 = 1
Wenn ja wie....???
Danke und schöne FeiertageUdo
20.12.2002 19:10:18
Thread-ID: 195667
7 Beiträge
diagramm nach alterskategorien
Samoth

Guten Abend!
Ich habe hier ein Problem und weiss mir nicht selber zu helfen:
Gegeben ist eine Liste von Geburtsjahren aus der ich ein Kreisdiagramm mit den folgenden Kategorien erstellen sollte
-bis 20 Jährige
-21 bis 40 Jährige
-41 bis 60 Jährige
-über 60 Jährige
nun kann...
05.05.2003 23:44:15
Thread-ID: 252587
2 Beiträge
Diagramm (Farbanpassung je nach Wert)
Mucky
Hallo Leute,
hab da ein Problem, weiß aber nicht ob das überhaupt machbar ist:
Ich möchte ein Balkendiagramm machen mit 10Balken (Werten). Die Werte können einen Bereich von 0-100 mit zwei Kommastellen haben. Nun möchte ich definierten Wertbereichen gewisse Farben im Diagramm zuweisen. Änder...
20.02.2004 07:38:03
Thread-ID: 385781
2 Beiträge
Liniendiagramm Farbe nach Wochentagen
Klaus

Hallo Zusammen,
kann mir jemand helfen. Ich will ein Liniendiagramm für einen Monat erstellen.
Die Tabelle enthält pro Tag 96 Werte. So weit so gut, bis hierher gibt kein Problem. Aber jetzt wollte ich pro Wochentag Montag - Sonntag bestimmen welche Farbe die Linien haben ( Monatag - bla...
01.01.1970 00:00:00
Thread-ID: 411586
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Untersch. Farbe in Diagramm je nach Wert anpassen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein Diagramm, das die Werte darstellt, die du farblich anpassen möchtest (z.B. ein Balkendiagramm).

  2. Definiere die Farbwerte in einem Bereich deiner Excel-Tabelle (z.B. in den Zellen A17:A21). Hier legst du die Farben fest, die du für bestimmte Werte verwenden möchtest.

  3. Öffne den VBA-Editor mit ALT + F11.

  4. Füge den folgenden VBA-Code in ein Modul ein:

    Sub ColorByValue()
    Dim rPatterns As Range
    Dim iPattern As Long
    Dim vPatterns As Variant
    Dim iPoint As Long
    Dim vValues As Variant
    Dim rValue As Range

    Set rPatterns = ActiveSheet.Range("A17:A21")
    vPatterns = rPatterns.Value
    ActiveSheet.ChartObjects("Chart 2").Activate

    With ActiveChart.SeriesCollection(1)
        vValues = .Values
        For iPoint = 1 To UBound(vValues)
            For iPattern = 1 To UBound(vPatterns)
                If vValues(iPoint) <= rPatterns(iPattern, 1) Then
                    .Points(iPoint).Format.Fill.ForeColor.RGB = rPatterns(iPattern, 1).Interior.Color
                    Exit For
                End If
            Next iPattern
        Next iPoint
    End With
End Sub

  5. Passe den Namen des Diagramms in ActiveSheet.ChartObjects("Chart 2") an, falls dein Diagramm anders benannt ist.

  6. Führe den Code aus, um die Diagrammfarben entsprechend den definierten Werten zu ändern.

Häufige Fehler und Lösungen

  • Problem: Diagrammfarben ändern sich automatisch und entsprechen nicht den Zellen.

    • Lösung: Stelle sicher, dass die RGB-Werte in den Zellen korrekt definiert sind. Du kannst die Farben direkt in Excel anpassen, bevor du den Code ausführst.

  • Problem: Du musst das Diagramm anklicken, bevor der Code läuft.

    • Lösung: Füge den Code in ein Arbeitsblatt- oder Diagrammmodul ein, um das Anklicken zu umgehen.

Alternative Methoden

Eine Alternative ist die Verwendung von bedingten Formatierungen in Excel, um die Farben der Datenreihen direkt zu ändern. Diese Methode eignet sich jedoch nicht immer für Diagramme. Für Punkt- und Blasendiagramme ist es oft besser, den VBA-Code zu verwenden, um die Farben nach Wert anzupassen.

Praktische Beispiele

  • Beispiel für ein Balkendiagramm:

    • Werte in den Zellen B1:B10.
    • Farben in den Zellen A17:A21 (z.B. A17: Rot, A18: Orange, A19: Grün, A20: Blau, A21: Lila).
    • Der Code färbt die Balken basierend auf den Werten in der Spalte B.

  • Beispiel für ein Punktdiagramm:

    • Verwende den gleichen Code, um die Farben der Punkte nach ihren Werten anzupassen. Achte darauf, das Diagramm entsprechend zu benennen.

Tipps für Profis

  • Farben aus Tabelle übernehmen: Du kannst die Excel-Funktion Interior.Color verwenden, um Farben direkt aus einer Zelle zu übernehmen. Dies ermöglicht eine dynamische Anpassung der Diagrammfarben.

  • Diagrammtypen anpassen: Der Code kann leicht angepasst werden, um auch für andere Diagrammtypen wie Blasendiagramme oder Punktdiagramme zu funktionieren. Stelle sicher, dass du die Diagrammreferenzen entsprechend änderst.

FAQ: Häufige Fragen

1. Frage: Wie kann ich die Farben für mehrere Diagramme gleichzeitig ändern?
Antwort: Du kannst den Code anpassen, indem du eine Schleife für alle Diagramme im Arbeitsblatt einfügst. Verwende For Each objChrt In ActiveSheet.ChartObjects.

2. Frage: Funktioniert dieser Code in allen Excel-Versionen?
Antwort: Der VBA-Code sollte in den meisten modernen Excel-Versionen (ab Excel 2010) funktionieren. Achte darauf, dass Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige