Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.11.2025 12:58:46
Fehlersuche Ereignismakro
07.11.2025 12:34:41
Datum aus Blatt- und Dateinamen bilden.
07.11.2025 12:01:16
Summewenn, Indirekt und eine zusätzliche Bedingung
06.11.2025 16:16:08
In einer Zelle die Anzahl der Zahlen zählen die durch ; getr
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Balkendiagramm färben in Abhängigkeit von Spalte

Forumthread: Balkendiagramm färben in Abhängigkeit von Spalte

Balkendiagramm färben in Abhängigkeit von Spalte
14.06.2017 12:56:46
Spalte
Hallo,
im Anhang befindet sich meine aktuelle Version eines Projektplans. Ich habe bereits über VBA den Code implementiert um ein Diagramm zu erstellen mit Hilfe der ausgeblendeten Spalten.
Nun würde ich ganz gern die Balken in Abhängigkeit vom Fortschritt des Projekts färben (Spalte "G").
Wie bekomme ich diese Färbung anhand der Spalte G hin? Könnte mir dabei jemand helfen?
https://www.herber.de/bbs/user/114268.xlsm
Vielen Dank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Balkendiagramm färben in Abhängigkeit von Spalte
14.06.2017 16:18:56
Spalte
Hi,
nach folgendem Prinzip (Farben musst du anpassen):
Sub DatenpunkteFaerben()
Dim lngPunkt As Long
Dim lngFarbe As Long
With Charts("Gantt Chart")
strXWerte = Split(.SeriesCollection(2).Formula, ",")(1)
For lngPunkt = 1 To .SeriesCollection(1).Points.Count
Select Case Worksheets("Projektplan").Cells(lngPunkt, 7).Value
Case 0
lngFarbe = 255
Case 20
lngFarbe = 12379352
Case 60
lngFarbe = 10213316
Case 80
lngFarbe = 5296274
Case 100
lngFarbe = 5287936
End Select
.SeriesCollection(2).Points(lngPunkt).Interior.Color = lngFarbe
Next lngPunkt
End With
End Sub

Anzeige
Korrektur
14.06.2017 16:37:10
Beverly
Hi,
die Zeile 
strXWerte = Split(.SeriesCollection(2).Formula, ",")(1)
muss gestrichen werden (ist ein Überbleibsel von einer anderen Lösungsvariante).

;

Forumthreads zu verwandten Themen

Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
Anzeige
Bedingte formatierung mit Wenn
kdl

Hallo, ich freue mich dieses Forum gefunden zu haben. An Hand eurer Beiträge konnte ich schon einiges dazulernen. In der letzten Zeit habe ich mich damit beschäftigt mit Excel zu zeichnen, über bedingte Formatierung (Rahmen zu weisen) erstelle ich die Draufsicht einer Arbeitsplatte.
Meine e...
12.09.2008 14:06:00
Thread-ID: 1009364
2 Beiträge
Formel in bedingter Formatierung
ludicla

Hallo Profis,
ich möcht folgende "bedingte Formatierung2 umsetzen und krieg die Kurve nicht.
Ich hab in einer Zeile in diversen Feldern (nicht zusammenhängend) z. B. B1+B3+B5+B7
ein Maximum.
Nun möcht ich z. B. den Wert in B3 farbig markieren wenn er kleiner als 80 %
des Ma...
28.10.2008 11:54:23
Thread-ID: 1019875
6 Beiträge
Pfeilfarbe- und Bewegung abhängig von Zellwerten
Zellwerten

Hallo zusammen,
unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub With Shapes("Autoform 1") If Range("A1").Value > Range("B1") Then .Rotation = 90# .Fill.ForeCol...
06.11.2008 20:47:00
Thread-ID: 1022428
8 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Anzeige
Bedingte Formatierung und
Kurt

Guten Abend Zusammen,
habe diese bedingte Formatirieung:
=I14>="08:30" dann wird <b>dunkelblau.</b>
Damit habe ich leider auch alle 3 Bedingungen ausgeschöpft.
Nun möchte ich aber wenn ein U oder F drin steht die Zelle hellgrün wird.
Habe dies gefunden :
...
12.12.2008 17:36:00
Thread-ID: 1032482
17 Beiträge
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Bedingte Formatierung Formel
Karel

Hallo Forum,
Zellen werde durch bedingte markierung nach Minmale (Farbe ROT) und Maximale wert (Farbe Grun)markiert.
Wenn zelle Leer oder Inhalt wert NULL (0) Zelle werd GELB Markiert
mein Problem ist wenn Zelle Leer ist Funktioniert Min und Max .
Aber wenn Zelle inhalt Wert NU...
02.03.2009 16:37:10
Thread-ID: 1055657
5 Beiträge
Farbe von bedingte Formatierung übertragen
bedingte

Hallo,
Wie kann ich die Farbe von bedingte Formatierung von ZellBereich 2 übertagen nach ZellBereich 1
Hintergrund ist dass in Bereich 2 Prozentuelle anteilige Wert je Warengruppe (WGR) ausgerechnet wird.
Ich suche ein möglichkeit diese Farbe eins zu eins von Bereich 2 nach Bereic...
05.03.2009 12:14:23
Thread-ID: 1056767
3 Beiträge
Anzeige
Bedingter Formatierung Formel übergeben
Jeziro

Hallo,
Ich möchte via VBA eine bedingte Formatierung für eine Zelle erzeugen. Die bedingte Formatierung soll eine Formel zur Erzeugung der bedingten Formatierung heranziehen. Diese Formel greift auf einen Bereich zurück, der während der Routine berechnet wird. Ich habe den Abschnitt folgend...
25.05.2009 17:49:42
Thread-ID: 1077177
8 Beiträge
Formel für bedingte Formatierung
Ernst

Hallo Vba Experten !
Ich habe ein Problem und zwar habe in Range A8:A105 Schriftfarbe rot ich möchte nun wenn die jeweillige Nachbarzelle gefüllt ist das sich die Schriftfarbe auf grün Ändert.
wenn ich das einzeln mache funktioniert es einwandfrei. jedoch habe ich Probleme wenn ich da...
05.06.2009 12:40:30
Thread-ID: 1079430
6 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