Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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

304 Forumthreads zu ähnlichen 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
Anzeige
Diagramm mit wenigen Werten -> Zwischenwerte
Robin

Hey Cracks,
ich zerbreche mir grad den Kopf über folgender Frage:
Ich habe eine gemessene Federkennlinie, von der ich nur ein Bild der Kennlinie habe, aber keine Messwerte.
Also hab ich eine handvoll Werte rausgelesen und daraus ein interpoliertes x-y-Diagramm erstellt, das auch ga...
25.09.2008 16:34:00
Thread-ID: 1012380
4 Beiträge
Diagramm mit falschen Werten/Datum
excel@goergler.de

Hallo zusammen,
zum folgenden Problemfall benötige ich Hilfe:
eine in Excel 2003 erstellte Datei wird im Kompatibilitätsmodus von Excel 2007 bearbeitet und anschließend die Verknüpfung zu einer anderen Exceldatei, in der die Basisdaten für ein Diagramm enthalten sind, gelöscht. Nach d...
04.11.2008 09:27:00
Thread-ID: 1021475
3 Beiträge
Anzeige
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
Balken Diagramm mit positiven und negativen werten
tobias

Hi,
ich habe ein Balkendiagramm mit drei Kategorien, und absoluten Werten.
Ein Wert ist hierin negativ, was dazu führt dass es mir das ganze Diagramm derhaut und lediglich noch eine Kategorie dargestellt wird.
Wenn ich es prozentual darstelle gibt es kein Problem nur bei absoluten z...
14.10.2009 16:34:53
Thread-ID: 1109640
4 Beiträge
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
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
Diagramme: Zeilenabstand Legende ändern
Christian

Hallo zusammen,
wie ändere ich bei bei einem Diagramm den Zeilenabstand der Legende (z.B. von 1,5 auf 1)? Wenn ich die Legende zusammenschiebe, ändert sich der Abstand nicht, sondern es verschwindet ein Teil der Legende...
Ich habe gelesen, dass dies bei Excel 2000 nicht möglich war -...
18.08.2010 13:03:38
Thread-ID: 1172821
2 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
3
1
3
2
3
1
3
3
4
1
3
3
4
3
5
6
9
4
7
10
13
2
3
3
3