Diagrammfarben VBA-Code

Hallo zusammen,
hab im Internet einen VBA-Code gefunden, der Diagrammbalken in der selben Farbe einfärbt, wie die Zellfarbe, aus der die Werte kommen.
Hab hier mal eine Beispieldatei: https://www.herber.de/bbs/user/156355.xlsm
Im Tabellenblatt "Fest Eingefärbte Zellen" ist es so angelegt, wie ich es gefunden habe.
Ändert man hier also die Farbe Zeilenweise in A1:B10 und löst das Makro aus, wird die Farbe im Diagramm angepasst.
Wollte das ganze jetzt mit bedingten Formatierungen anpassen.
Im Tabellenblatt "Bedingte Formatierung" mein Versuch dazu.
Ändert man hier den Text in Spalte A, passt sich die Zellenfarbe automatisch an.
Ins Diagramm übernehmen lässt sich das mit dem Makro aber leider nicht.
Hat jemand eine Idee, wie man das zum Laufen bringen könnte?
Gruß Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SauelenFaerben() Dim rngBereich As Range Dim lngZeile As Long Dim strBereich As String Dim varFarbe As Variant With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) strBereich = Split(.Formula, ",")(1) Set rngBereich = Range(strBereich) For lngZeile = 1 To rngBereich.Cells.Count Select Case rngBereich.Cells(lngZeile).Value Case "gelb" varFarbe = 65535 Case "blau" varFarbe = 14395790 Case "rot" varFarbe = 255 Case "grün" varFarbe = 5296274 Case "orange" varFarbe = 49407 Case "schwarz" varFarbe = 8421504 Case "lila" varFarbe = 10498160 Case "hellblau" varFarbe = 15652797 Case "grau" varFarbe = 12566463 Case "schwarz-weiß-schwarz" varFarbe = "schwarz-weiß-schwarz" End Select If IsNumeric(varFarbe) Then .Points(lngZeile).Interior.Color = varFarbe Else ' hier der Code wie die Säule gefärbt werden soll wenn "schwarz-weiß-schwarz" in der Zelle steht End If Next lngZeile End With End Sub

Hi Andreas,
ich habe mir die Farbnummer von Excel auslesen lassen - einfach eine Zelle mit der gewünschten Farbe formatieren und dann dieses kleine Makro ausführen:


Sub Farbe()
ActiveCell = ActiveCell.Interior.Color
End Sub

Oder du nimmst dein Tabellenblatt "Fest Eingefärbte Zellen" und führst dort dieses Makro aus, damit gleich alle Farbnummern ausgegeben werden:


Sub Farbe()
Dim lngZeile As Long
For lngZeile = 2 To 10
Cells(lngZeile, 3) = Cells(lngZeile, 1).Interior.Color
Next lngZeile
End Sub

Wenn du die Säulen nur einfach farbig formatieren willst, dann musst du die Farbe innerhalb der Case-Anweisung festlegen - also:


Case "schwarz-weiß-schwarz"
varFarbe = 8421504

In der If-Then-Else-Anweisung wird die Säule bereits gefärbt. Wenn du generell nur eine einfarbige Färbung möchtest, brauchst du den Else-Zweig aber überhaupt nicht - dann reicht statt der 5 Zeilen diese 1 Zeile:


            .Points(lngZeile).Interior.Color = varFarbe

Und falls du weitere Farben willst, dann einfach noch eine entsprechende Case-Anweisung ergänzen - der Select-Case-Teil ist einfach die "Übersetzung" dessen was in der Zelle steht und welche Farbe dann zugewiesen werden soll.
Bis später
Karin

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread