Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1344to1348
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramm färben bei bedingter Formatierung

Diagramm färben bei bedingter Formatierung
14.01.2014 08:07:56
Marc
Hallo zusammen,
wie kann man ein Diagramm anhand von einer bedingten Formatierung färben lassen?
Anbei meine Datei: https://www.herber.de/bbs/user/88794.xlsm

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm färben bei bedingter Formatierung
14.01.2014 09:17:06
Beverly
Hi Marc,
dazu hatten wir doch bereits einen Thread vor einiger Zeit, wo ich dir eine VBA-Lösung zum Einfärben der Balken anhand der Zellfarbe gepostet hatte - der Code müsste dir noch vorliegen.
Ein Vergleich mit der erfüllten Bedingung per bedingter Formatierung anhand der Farbe ist nicht möglich, das geht nur über den entsprechenden Zellinhalt.
Du müsstest also die Zellen in Spalte A Tabelle3 entsprechend von Hand färben und dann in der Schleife, in der du über die Datenpunkte im Diagramm läufst, den Inhalt der Spalte F in Tabelle1 jeweils in Spalte A in Tabelle3 suchen und dann die betreffende Farbe nehmen.

Anzeige
AW: Diagramm färben bei bedingter Formatierung
14.01.2014 09:46:11
Marc
Hi Beverly,
anhand von diesem Code habe ich auch versucht das anzupassen, aber da kenne ich mich zu wenig mit Makros aus.
Ich habe nun die Zellen in Spalte A Tabelle3 entsprechend gefärbt aber wie suche ich jetzt nach dem Inhalt?

AW: Diagramm färben bei bedingter Formatierung
14.01.2014 10:46:03
Beverly
Hi Mark,
poste den bisherigen Code doch mal - ich muss das Fahrrad doch nicht neu erfinden. ;-)

AW: Diagramm färben bei bedingter Formatierung
14.01.2014 10:58:53
Marc
bitteschön:
Sub DiaFaerben()
Dim lngPunkt As Long
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
.ApplyDataLabels
For lngPunkt = 1 To .Points.Count
With .Points(lngPunkt)
.Interior.Color = Cells(lngPunkt + 2, 7).Interior.Color
With .Format.Fill
.Visible = msoTrue
.Transparency = 0
.Solid
End With
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(2).Select
With Selection.Format.Line
.Visible = msoTrue
.Weight = 2
End With
.DataLabel.Caption = "=Tabelle1!F" & lngPunkt + 2
End With
Next lngPunkt
End With
End Sub

Anzeige
AW: Diagramm färben bei bedingter Formatierung
14.01.2014 12:16:28
Beverly
Der Code ist nur teilweise von mir, denn bei mir kam bestimmt kein Select und kein Activate darin vor.
Sub DiaFaerben()
Dim lngPunkt As Long
Dim rngZelle As Range
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
.ApplyDataLabels
For lngPunkt = 1 To .Points.Count
With .Points(lngPunkt)
.DataLabel.Caption = "=Tabelle1!F" & lngPunkt + 2
Set rngZelle = Worksheets("Tabelle3").Columns(1).Find(Cells(lngPunkt + 2, 6).Value,  _
lookat:=xlWhole)
If Not rngZelle Is Nothing Then
.Interior.Color = Worksheets("Tabelle3").Range(rngZelle.Address).Interior.Color
With .Format.Fill
.Visible = msoTrue
.Transparency = 0
.Solid
End With
End If
With .Format.Line
.Visible = msoTrue
.Weight = 2
End With
End With
Next lngPunkt
End With
End Sub

Anzeige
AW: Diagramm färben bei bedingter Formatierung
14.01.2014 12:16:39
Bastian
Hallo Marc,
probier mal folgenden Code:
Gruß, Bastian
Option Explicit
Sub DiaFaerben()
Dim lngPunkt As Long
Dim strBeruf As String
Dim lngColor As Long
Dim R As Integer
Dim G As Integer
Dim B As Integer
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2)
For lngPunkt = 1 To .Points.Count
strBeruf = Sheets("Tabelle1").Cells(lngPunkt + 2, 6).Value
On Error Resume Next
lngColor = Sheets("Tabelle3").Cells(Application.Match(strBeruf, Sheets("Tabelle3") _
.Range("A2:A11"), 0) + 1, 1).Interior.Color
liesRGB lngColor, R, G, B
With .Points(lngPunkt).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(R, G, B)
.Transparency = 0
.Solid
End With
Next
End With
End Sub
Function liesRGB(lngColor As Long, ByRef Red As Integer, _
ByRef Green As Integer, ByRef Blue As Integer)
On Error Resume Next
Red = lngColor Mod 256
lngColor = (lngColor - Red) / 256
Green = lngColor Mod 256
lngColor = (lngColor - Green) / 256
Blue = lngColor Mod 256
End Function

Anzeige
Ergänzung
14.01.2014 12:18:47
Bastian
Hallo Marc,
mein geposteter Code geht nur, wenn Du die Liste der Berufe in Tabelle3 in den entsprechenden Farben formatierst.
Gruß, Bastian

AW: Ergänzung
14.01.2014 13:30:33
Marc
Vielen Dank!!!
Das ist genau das, was ich gesucht habe.

AW: Ergänzung
14.01.2014 14:14:06
Beverly
Hi marc,
hast du meinen Code ebenfalls getestet? Der macht nämlich genau das selbe, allerdings mit dem Vorteil, dass der Balken nicht gefärbt wird, falls in Spalte F nichts ausgewählt wurde.

AW: Ergänzung
14.01.2014 14:24:09
Marc
ja, habe ich auch getestet.
Vielen vielen Dank, ihr habt mir beide super weitergeholfen!!!

Anzeige
AW: Ergänzung
15.01.2014 12:36:25
Marc
jetzt hätte ich doch noch ein Frage und zwar bezüglich der X-Achse.
Hat man die Möglichkeit, dass die x-Achse automatisch mit den Jahren mitwandert?
Momentan habe ich das so gelöst:
Achse formatieren, dann Achsenoptionen
Dort habe ich dann manuell Werte hinterlegt.
Schön wäre es, wenn das automatisch gehen würde, dann muss ich das nicht für jedes Jahr anpassen.
Oder muss ich das ganz anders angehen?

313 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
über Farbe der Zelle Zellen dynamisch sperren
Sucher

Hallo liebes Forum,
kann mir hier im Forum eine/einer weiterhelfen.
Das Makro soll wenn Colerindex = 2 Zellen dynamisch entsperren alle anderen Zell- Farben sollen gesperrt werden!
Ist Situation:
Ich habe mit Excel einen Rechner gebastelt der von anderen Anwendern benutzt werde...
11.12.2008 09:18:42
Thread-ID: 1031921
13 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Diagramm Linienfarbe aus Zellfarbe "auslesen"
StefanK

Hallo Herber-Excel-Freunde,
ich habe ein Diagramm (Punkt XY - Untertyp: Punkte mit Linien ohne Datenpunkte) rstellt.
Dabei formatiert Excel erst einmal die Farben automatisch.
Bislang markiere ich dann die einzelnen Linien im Diagramm und formatiere die Farben um.
Jetzt meine A...
16.02.2009 19:50:00
Thread-ID: 1051268
11 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 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
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Anzeige

Links zu Excel-Dialogen

Label

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
6
10
12
9
7
9
10
5
2
3
5
2
3
2
6
3
17
14
2
3
2
3
7
3
2