Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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
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
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 »

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
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

311 Forumthreads zu ähnlichen Themen

Zeilen autom nach Werten d. Spalte C sortieren
obelix-xxl

Hallo,
ich bitte um Unterstützung bei der Lösung mittels Makro für nachfolgende Aufgabenstellung.
Im aktuellen Tabellenblatt "Raum 1" sind in der Spalte C einer jeden Zeile ganze Zahlen von 1 bis 30 eingetragen. Diese Zeilen sollen automatisch nach Eingabe des Wertes in Spalte C sortier...
02.10.2008 09:16:11
Thread-ID: 1013794
15 Beiträge
Anzeige
Falsche Bildgröße nach dem Sortieren?
Kasimir

Hallo an alle!
Ich habe da ein Problem. Ich habe eine Datei, in der in einigen Zellen in Spalte I Grafiken eingebunden sind. In anderen Zellen ebenfalls in Spalte I steht nur Text. Die Zeilen haben alle unterschiedliche Höhen. Die mit Grafik sind höher, die mit nur Text sind nicht so hoch....
23.06.2009 21:33:24
Thread-ID: 1083760
2 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Anzeige
Diagramm: Beschriftungsänderung Größennachse Y
Hubert

Hallo miteinander
Ich bin mit Diagrammen nicht so bewandert, aber nach Recherche habe ich es geschafft, das folgende Zeitliniendiagramm zu erstellen.
Ich möchte jetzt aber in der Größenachse Y statt der 1, 2, 3 etc den Monatsnamen Jan, Feb, Mrz etc stehen haben. Ich bekomme es nicht hi...
29.06.2013 22:28:48
Thread-ID: 1320461
3 Beiträge
Werte nach Übernahme sortieren
Sylvio

Hallo Leute,
habe eine Userform mit zwei Textboxen in die ich Text eingebe der mir nach klick auf übernehmen in drei Tabellenblätter eingetragen wird.
Text aus Textbox1 in Tabelle1 ab Zeile A4 und gesplittet in Tabelle2 ab Zeile A1
Text aus Textbox2 in Tabelle3 ab Zeile A1.
Nun...
10.07.2013 11:42:13
Thread-ID: 1321827
8 Beiträge
Sortieren nach Werten trotz Buchstaben
Jockel

Hallo,
ich möchte eine Tabelle ab Zeile zwei in der Spalte C sortieren. Das Problem dabei ist, die Werte, die drinnen stehen, sind nicht nur Ziffern, sondern auch Buchstaben und die Ziffern stehen hinten.
Die Strings sehen immer so aus: zwei Buchstaben + zwei Ziffern.
TZ12
BS32<...
09.12.2013 14:20:42
Thread-ID: 1341866
4 Beiträge
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
Tabelle nach Wert aus der ComboBox sortieren
Larissa

Hallo zusammen,
ich steh vor einem kleinen Problem.
Ich habe eine Tabelle mit Rohren. In den Spalten werden die Geschwindigkeit, die Länge und der Durchmesser angegeben.
Nun soll über ein Fomular nach den drei Kriterien sortiert werden.
Als Durchmesser kommt entweder 1 oder 3...
16.04.2015 09:18:02
Thread-ID: 1421097
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
14
5
1
16
3
2
7
3
4
7
11
6
7
2
5
5
5
1
3
1
7
2
2
5
2