Office: Dem Diagramm gleiche Farben zu ordnen, wie in der Zelle/Spalte - Excel 2007

Hallo liebe Helfer,

ich erstell ein Balkendiagramm was automatisch von groß auf klein Sortiert. Dadurch verändern sich aber für Produckt a die Farbe im Diagram, wen es nicht an position 1 ist sondern evtl. mal auf 2.
Ich habe jedem Produckt eine eigene Farbe in der Spalte gegeben.

• Kann ich die Farben der Spalte in das Diagram mit übernehem
• Wie würde der VBA Code aussehen

Ich nutze Excel 2007.

VIELEN DANK IM VORAUS!!

Monchi

 

Hi,

dafür gibt es nur eine VBA Lösung. Da ich jedoch deinen Tabellenaufbau nicht kenne, hier nur ein prinzipieller Code:

Code:

Sub DiaFaerben()
   Dim intPunkt As Integer
   With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
      For intPunkt = 1 To .Points.Count
         .Points(intPunkt).Interior.Color = Cells(intPunkt, 3).Interior.Color
      Next intPunkt
   End With
End Sub

Bis später,
Karin

 

Hallo Karin,
danke für deine schnelle Antwort.

Ich habe eine Beispieltabelle angehägt. Im zweiten Tabellenblatt ("Ranking FS") ist die Tabelle mit den Daten. Im ersten Tabellenblatt befindet sich das Diagramm, aber wie du sicher erkennen kannst, stimmen die Farben der Diagrammbalken nicht mit den Hintergrundfarben im zweiten Tabellenblatt überein.
Wie muss ich den Code in Excel einfügen? Ist der Code übergreifend oder nur für das eine Tabellenblatt? (Beispiel: habe eine Excel-Datei mit 6 Tabellenblätter drei mit Tabellen und drei jeweils mit dem entsprechenden Diagramm dazu)

Ich habe deinen Code ausprobiert, hat aber nicht funktioniert, ich kenn mich gar nicht mit VBA-Programmierung aus.

MfG
Monchi

 

Hi,

mein Code war für ein eingebettetes Diagramm, nicht für ein Diagrammblatt. Außerdem benutzte ich die Spalte C für die Farbgebung. Entsprechend deiner Arbeitsmappe müsste der Code so aussehen:

Code:

Sub DiaFaerben()
   Dim intPunkt As Integer
   With Charts("Diagramm FS").SeriesCollection(1)
      For intPunkt = 1 To .Points.Count
         .Points(intPunkt).Interior.Color = _
            Worksheets("Rankingbasis FS").Cells(intPunkt + 1, 1).Interior.Color
      Next intPunkt
   End With
End Sub

Du musst die Arbeitsmappe im Format XLSM abspeichern, damit der Code erhalten bleibt.

Soll sich der Code auf Tabellen-/Diagrammblätter mit anderen Namen beziehen, musst du das im Code entsprechend anpassen. Möglicherweise musst du auch die Bezugszellen .Cells(intPunkt + 1, 1) anpassen, falls sich die Daten in einem anderen Tabellenbreich befinden.

Bis später,
Karin

 

Hallo Karin,

vielen vielen Dank, der Code funktioniert. Anpasen mache ich später, würde mich dann nochmal melden.

Jetzt habe ich aber noch eine andere Frage, warum muss ich den Code immer manuell ausführen?? Gibt es da nichts automatisches??

MFG
Monchi

 

Hi,

sicher kann man den Code auch automatisch ausführen lassen - z.B. bei Eingabe eines Wertes. Aber da müsstest du dich schon ein wenig genauer erklären, in welchem Zellbereich die Eingabe und anschließend die Diagrammfärbung erfolgen soll.
Hinweis: bei Änderung der Füllfarbe der Zelle ist keine automatische Codeausführung möglich, da dies kein Ereignis auslöst, welches man per VBA auswerten kann.

Bis später,
Karin