Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivotchart - Farben an Legende festmachen

Forumthread: Pivotchart - Farben an Legende festmachen

Pivotchart - Farben an Legende festmachen
11.06.2013 16:55:43
M
Hallo,
ich habe folgende Herausforderung: ich trage mir Daten für eine Pivotauswertung per Makro zusammen. Nun ist es so, dass - je nachdem welche Daten vorhanden sind - die Farbenzuordnung des dazugehrigen Charts von Auswertung zu Auswertung variieren kann. So werden die drei Ausprägungen "hoch", "mittel", "niedrig" bestimmten Farben zugeordnet. Ich möchte nun, dass ich "hoch" immer in rot, "mittel" immer in gelb und "niedrig" immer in grün dargestellt bekomme. Wie bekomme ich das hin?

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivotchart - Farben an Legende festmachen
11.06.2013 17:17:47
M
... habe schon den aktuellen Code, der aber stur von der ersten bis zur letzten Reihe dei Farben vergibt. Ich möchte das aber (wie oben beschrieben) abhängig von der Bezeichnung tun.
Sub Diagramm_Format(objChart As Chart)
Dim Reihe As Series
Dim K As Long, arrRGB(1 To 13, 1 To 3) As Long
'Farben-Daten für Diagrammdatenreihen.
K = 1: arrRGB(K, 1) = 255: arrRGB(K, 2) = 0: arrRGB(K, 3) = 0 'rot
K = 2: arrRGB(K, 1) = 255: arrRGB(K, 2) = 255: arrRGB(K, 3) = 0 'gelb
K = 3: arrRGB(K, 1) = 0: arrRGB(K, 2) = 128: arrRGB(K, 3) = 0 'dunkelgrün
K = 4: arrRGB(K, 1) = 237: arrRGB(K, 2) = 242: arrRGB(K, 3) = 247 'hellblau
K = 5: arrRGB(K, 1) = 255: arrRGB(K, 2) = 0: arrRGB(K, 3) = 255 'magenta
K = 6: arrRGB(K, 1) = 0: arrRGB(K, 2) = 0: arrRGB(K, 3) = 255 'blau
K = 7: arrRGB(K, 1) = 128: arrRGB(K, 2) = 0: arrRGB(K, 3) = 0 'rotbraun
K = 8: arrRGB(K, 1) = 0: arrRGB(K, 2) = 0: arrRGB(K, 3) = 128 'dunkelblau
K = 9: arrRGB(K, 1) = 0: arrRGB(K, 2) = 255: arrRGB(K, 3) = 0 'grün
K = 10: arrRGB(K, 1) = 128: arrRGB(K, 2) = 128: arrRGB(K, 3) = 0 'braun
K = 11: arrRGB(K, 1) = 128: arrRGB(K, 2) = 0: arrRGB(K, 3) = 128 'violett
K = 12: arrRGB(K, 1) = 0: arrRGB(K, 2) = 128: arrRGB(K, 3) = 128 'dunkeltürkis
K = 13: arrRGB(K, 1) = 128: arrRGB(K, 2) = 128: arrRGB(K, 3) = 128 'grau
For K = 1 To objChart.SeriesCollection.Count
Set Reihe = objChart.SeriesCollection(K)
With Reihe
If K

Anzeige
;

Forumthreads zu verwandten Themen

Säulen verkürzen bei Diagrammen mit hohen Werten
Ingo

Hallo zusammen,
ich habe ein Diagramm mit drei Werten, wobei der dritte Wert ein Vielfaches der übrigen beiden Werte ausmacht.
Damit ich bei den anderen Säulen nicht nur Striche an der x-Achse habe, würde ich das Diagramm gern so skalieren, dass der Mittelteil praktisch herausgeschnitte...
19.08.2008 09:42:00
Thread-ID: 1002809
4 Beiträge
Diagrammpunkte per Formel einfärben?
Ulrich

Hallo zusammen,
wie kann ich Diagrammpunkte per Formel einfärben? Ich habe einen Terminkalender, in dem - je nach Ereignis-Typ - die Raute (der Diagrammpunkt) eine andere Farbe bekommen soll. In der Tabelle - aus der ich das Diagramm erstelle - stehen JAHR, VERANSTALTUNG und TYP.
Geht d...
20.08.2008 13:47:00
Thread-ID: 1003194
2 Beiträge
Diagramm-Source-Range per Userform-Button ändern?
fred

Hallo allerseits,
ich habe eine Userform, die automatisch ein Diagramm aus einem wks ins Clipboard übernimmt und dieses dann als Metafile in der Userform anzeigt.
Nun würde ich gerne folgendes machen, ist etwas tricky glaube ich...?
Das Diagramm zeigt immer ein Jahr an, sagen wir al...
26.08.2009 09:55:48
Thread-ID: 1098663
4 Beiträge
Legende bei Diagrammen
ulf

Hallo zusammen,
ich erstelle gerade Liniendiagramme mit bis zu 8 verschiedenen Linien. Ich möchte hierbei die Legende nicht als Block neben/ unter/ über der Grafik stehen haben, sondern die Legende direkt an die Linien in der grafischen Umsetzung stehen haben. Auf welchem Wege ist das mögli...
11.09.2009 16:27:59
Thread-ID: 1102073
2 Beiträge
Anzeige
Diagrammgröße per VBA ändern
ben

Hallo zusammen,
Ich habe drei Command Buttons mit deren Betätigung drei verschiedene Diagramme (Kuchendiagramm) angezeigt werden können. Wenn ein neues Diagramm angezeigt werden soll, wird das alte zuvor gelöscht.
Leider werden die Diagramme aber immer nur recht klein angezeigt.
Ic...
20.02.2010 10:34:56
Thread-ID: 1139846
4 Beiträge
Anzeige
Diagramm mit abweichenden Werten (Jahressumme)
biber

Hallo,
Ich habe Lagermieten für 4 Jahre von Januar bis Dezember und die zugehörigen Summen. Diese Werte werden in einem Linien-Diagramm dargestellt. Die Werte sollen in einer Tabelle unterhalb des Diagramms angezeigt werden.
Die Jahressummen lasse ich nun als Säulen über die Sekundärac...
23.06.2010 08:53:30
Thread-ID: 1163568
5 Beiträge
Excel Diagramme mit Schwellenwerten
Dietmar

Hallo in die Runde,
ich tüftele schon eine ganze Weile und finde die Lösung nicht.
Ich möchte zwei Diagramme erstellen, das aus folgenden Werten besteht: Tabelle 1 Zeitraum Verkauf-Ist Schwelle1 Schwelle2 Schwelle3 Schwelle4 1. Quartal 40 30 39 59 70 2. Quartal 67 30 39 59 70 3. Quarta...
13.11.2010 21:26:38
Thread-ID: 1186683
4 Beiträge
Anzeige
Diagramm mit Schwellenwerten
Dietmar

Hallo zusammen,
leider ist es mir noch nicht gelungen, das Diagramm hinsichtlich der Schwellenwerte so zu gestalten, dass die Bereiche der Schwellenwerte (=Flächen) ganz links und ganz rechts im Diagramm beginnen. Ich hatte dieses Anliegen hier bereits schon einmal gepostet.
Wenn ich de...
21.12.2010 12:46:29
Thread-ID: 1192346
4 Beiträge
fehlerhafte Legende bei Diagramm
andrea

Hallo, ich habe folgendes Problem. Ich habe ein Diagramm erstellt und rechts daneben ist eine Legende. Obwohl ich in der Tabelle alles Spalten mit Text markiert habe, fehlt eine Beschriftung im Legendenkasten. Am Diagramm selber ist der Text zu sehen. Woran kann das liegen? Vielen Dank.
13.01.2011 11:34:50
Thread-ID: 1195382
5 Beiträge
Anzeige
Diagramm mit best. Werten
Tobi

Hallo leute,
ich würde gerne mal wissen ob es geht, ein Makro zu erstellen, das mit folgender Tabelle folgendes tut:
https://www.herber.de/bbs/user/80965.xlsx
- Die Tabelle ist in Monate aufgeteilt
- für jeden aktuellen Monat soll mit dem Makro ein aktuells Diagramm erstellt we...
13.07.2012 13:31:39
Thread-ID: 1270904
4 Beiträge
dynamisches Diagramm mit < Werten darstellen
Julia

Hi Zusammen!
da ich hier immer tolle hilfe finde, komme ich wieder auf euch zurück!
Folgendes Problem:
ich möchte ein dynamisches Diagramm erzeugen- soweit kein Problem. Allerdings habe ich manche Werte als <xy~f~... die stellt das Diagramm natürlich auf 0.
Für meine Berechn...
12.06.2013 10:46:15
Thread-ID: 1317233
7 Beiträge
Excel-Diagramme punkte mit Formeln berechn.
Simon

Hi Freunde,
puhh...ich versuche mein Fall zu schildern, obwohl es vielleicht schwierig wird.
Ich habe ein (x,y) Diagramm mit 5 Kurven, d.h. jeder Punkt hat ein anderen Wert.
Ich habe nun die einzelnen Werte der Kurven in eine Excel Tabellen eingetragen. Nun möchte ich anhand einer...
29.08.2014 12:24:31
Thread-ID: 1378970
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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