Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbe in der Zelle gleich dem Balken

Forumthread: Farbe in der Zelle gleich dem Balken

Farbe in der Zelle gleich dem Balken
28.07.2020 14:11:56
Chris
Hallo,
ich suche einen Weg wie ich bei einem Balkendiagramm die Farbe der Zelle aus der die Daten kommen entnehmen kann und damit den entsprechenden Balken des Diagrammes einfärben kann. Ist dies jemand bekannt?
Vielen Dank Chris
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe in der Zelle gleich dem Balken
28.07.2020 15:02:09
Oberschlumpf
Hi Chris,
google doch mal; Suchtext: zellfarbe auslesen
Hilfts?
Ciao
Thorsten
Korrektur
28.07.2020 15:02:46
Oberschlumpf
Suchtext: vba zellfarbe auslesen
AW: Farbe in der Zelle gleich dem Balken
28.07.2020 20:34:23
volti
Hallo Chris,
hier eine ausbaufähige Anregung...
In Ermangelung der konkreten Anforderung habe ich auf die automatische Ermittlung der Zellen mal verzichtet.




	
	
	
	




Sub BalkenFaerben()
'Diagramm Balken färben
 Dim xPoints As Integer, xRows As Integer
 Dim oZiel As Range
 
 Set oZiel = ActiveSheet.Range("A2") 'Beginnzelle der Reihe
 
 xRows = 1                           'Erste Balkenreihe
'Alle Datenpunkte der aktuellen Datenreihe durchgehen
'Chart muss aktiviert sein
 With ActiveChart
   
   For xPoints = 1 To .SeriesCollection(xRows).Points.Count
     
     With .SeriesCollection(xRows).Points(xPoints)
         .Interior.Color = oZiel.Offset(0, xPoints - 1).Interior.Color
     End With
   
   Next xPoints
 
 End With
End Sub
viele Grüße aus Freigericht
Karl-Heinz

Anzeige
AW: Farbe in der Zelle gleich dem Balken
28.07.2020 23:33:15
volti
Hallo Chris,
hier noch ein Update, bei dem das Diagramm nicht aktiviert sein muss und mehrere Reihen enthalten kann.
Sub BalkenFaerbenAusZellfarben()
'Diagramm Balken färben
 Dim xPoints As Integer, xRows As Integer, sArr() As String

'Alle Datenpunkte der aktuellen Datenreihe durchgehen
 With ActiveSheet.ChartObjects("Diagramm 3").Chart 'Chartnamen anpassen
   For xRows = 1 To .SeriesCollection.Count
     With .SeriesCollection(xRows)
       sArr = Split(.Formula, "$")
       For xPoints = 1 To .Points.Count
     
          With .Points(xPoints)
               .Interior.Color = Range(sArr(5) & Replace(sArr(6), ":", "")) _
               .Offset(0, xPoints - 1).Interior.Color
          End With
   
        Next xPoints
     End With
   Next xRows
 End With
End Sub
viele Grüße aus Freigericht
Karl-Heinz

Anzeige
AW: Farbe in der Zelle gleich dem Balken
29.07.2020 11:53:18
Chris
Hallo Karl-Heinz,
vielen Dank für die super Hilfe. Ich habe das Makro in die Arbeitsmappe gepackt. Ich habe es an der Stelle Chartname angepasst und bekomme bei der Ausführung folgende Fehlermeldung:
Laufzeitfehler `1004`:
Die Methode `Range` für das Objekt `_Gobal` ist fehlgeschlagen.
Bei Debuggen werden die zwei Zeilen unter With .Points(xPoints) gelb markiert.
Nun noch zur Anforderung. Wenn ich die Zelle farbig hinterlege aus der die Daten für das Diagramm entnommen werden, dann soll der Balken im Diagramm die Farbe der Zelle haben.
Viele Grüße
Chris
Anzeige
AW: Farbe in der Zelle gleich dem Balken
29.07.2020 13:39:17
volti
Hallo Chris,
bei mir geht es. Und da ich Deine Voraussetzungen (z.B. die Datei) nicht kenne, kann ich ja jetzt nicht groß helfen.
In sArr(5) und sArr(6) sollte jetzt die Spalte und die Zeile (z.B. "A" und "2") des ersten Feldes enthalten sein.
Ggf. doch mal Mappe hochladen.
VG KH
Anzeige
AW: Farbe in der Zelle gleich dem Balken
29.07.2020 13:48:56
peterk
Hallo
Hast du auch den Unterstrich "_" mitkopiert? .Offset gehört zu Range und nicht zu Points, daher sehr wichtig
Peter
AW: Farbe in der Zelle gleich dem Balken
30.07.2020 11:56:34
Chris
Hallo Forum,
so ich habe eine Excel Mappe vorbereitet mit den Daten und mit dem Diagramm wie ich es mir vorstelle. (https://www.herber.de/bbs/user/139391.xlsx) Ich habe die Farben entsprechend gewählt, wie es am Ende sein soll. Da es sich um ein gestapeltes Diagramm handelt wurden die Balken zuvor aus geblendet. Das Problem ist das wenn ich eine Zeile einfüge die Farbformatierung im Diagramm nicht mehr stimmt. Dies soll mit dem Marko gelöst werden, sodass die Farben übernommen werden.
Vielen Dank für die Hilfe
Chris
Anzeige
AW: Farbe in der Zelle gleich dem Balken
30.07.2020 15:36:21
volti
Hallo Chris,
hier noch ein Versuch. Es wird nur die zweite Reihe gefärbt. Die Anordnung der Daten (ich nahm natürlich waagerecht an) ist hierbei schon zu berücksichtigen.
Teste mal, ob es jetzt klappt.




	
	
	
	




Sub BalkenFaerbenAusZellfarben()
'Diagramm Balken färben, Datenanordnung senkrecht
 Dim xPoints As Integer, rField As Range, sArr() As String

'Alle Datenpunkte der aktuellen Datenreihe durchgehen
 With Sheets("Tabelle1").ChartObjects("Diagramm 1").Chart    'Chartnamen ggf. anpassen
   With .SeriesCollection(2)
     sArr = Split(.Formula, "$")                             'Anfangsfeld holen
     Set rField = Range(sArr(3) & Replace(sArr(4), ":", "")) 'und setzen
      
     For xPoints = 1 To .Points.Count                        'Alle Punkte durchgehen
       With .Points(xPoints)
         .Interior.Color = rField.Offset(xPoints - 1, 0).Interior.Color
       End With
     Next xPoints
     
   End With
 End With
End Sub
viele Grüße aus Freigericht
Karl-Heinz

Anzeige
AW: Farbe in der Zelle gleich dem Balken
31.07.2020 08:59:23
Chris
Hallo Karl-Heinz,
vielen Dank für deine super Hilfe. Ich habe es heute morgen ausprobiert und es läuft total rund und setzt genau das um was ich mir vorgestellt habe. Auserdem bin ich begeistert, was alles möglich ist. Deswegen kann der Thread geschlossen werden und danke dir für deinen Einsatz.
Viele Grüße
Chris
Anzeige

Forumthreads zu verwandten 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
Zelleninhalte abwechselnd mit der Füllfarbe... ?
Selma

Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle d...
07.10.2008 10:00:00
Thread-ID: 1014628
11 Beiträge
Anzeige
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
Farbe der Nachbarzelle
Volker

Hallo zusammen,
zuerst einmal wünsche ich Euch ein gutes 2009!
Nun zu meinem Problem:
Ich übergebe mittels untenstehendem Code die Daten an eine Tabelle. Funktioniert auch. Allerdings hätte ich jetzt gerne das bei nachträglich geleerter Zelle die Ursprungsfarbe wieder erscheint.
08.01.2009 12:50:17
Thread-ID: 1037876
8 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
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
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
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
farbe von Objekt auslesen
Objekt

Hallo zusammen,
ich würde gerne die Farbe von Objekten, mit denen Sie gefärbt sind auslesen.
Mit dem Makrorekorder kann ich mir ja leicht aufzeichnen, wie ich das Objekt färbe, aber rückwärts scheint das nicht zu funktionieren.
Im Prinzip bräuchte ich etwa sowas:
msgbox Workshee...
15.07.2009 17:30:03
Thread-ID: 1088874
3 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:42:25
Thread-ID: 1093113
4 Beiträge
Farbe bei betreten der Zelle
Stefanglander

Hallo Forum,
habe hier etwas sehr interessantes gefunden.
Option Explicit
Function ColorFromPallet(Optional lOldCol As Double = xlNone) As Double
Dim dSavCol As Double, dNewCol As Double
Dim iRGB_R As Integer, iRGB_G As Integer, iRGB_B As Integer
dSavCol = ActiveWorkbook...
13.08.2009 22:38:17
Thread-ID: 1095814
18 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige