Office: Diagrammbalken nach Inhalt färben/excel

Hallo zusammen,

Ich brauche Hilfe und zwar:

Ich habe ein excel Tabelle mit mehrere Balkendiagramme wo ich gerne überall ein Verweis eingeben möchte, dass alle Werte mit dem Selben Produkt ein einheitliche Farbe erhalten.
Bsp. Diagramm1- balken mit produkt b11, b13, c64, c63
Diagramm2- balken mit produkt f01, f02, b11, c64, m01 usw. Ich würde gerne in diesem Fall dass die Balken b11 sowie c64 bei Diagramm1 und 2 die selben Farben erhalten. Manuell das zu machen wäre eine lösung aber das bei ca. 150 Diagrammen mit über 50 Produkte wird es aufwändig sein.
Gibt es dazu ein funktion?
Makro? Wenn ja bitte die einzelne Schritte eingeben da ich mich mit Makros nicht auskenne.
Bitte um Unterstützung

 

Hi,

das ist durchaus machbar, und zwar mit VBA. Allerdings müsstest du irgendwo im Tabellenblatt vorgeben, welcher Datenpunkt welche Farbe haben soll. Am einfachsten wäre es, wenn du die betreffende Zelle, auf die sich das Diagramm bezieht, in der entsprechenden Füllfabe formatierst.

Bis später,
Karin

 

Hallo,

Danke für deine Antwort. Kannst mir den VBA code geben und mir bitte sagen wo ich den einfüge?

Würde mich freuen

 

Hi,

kann ich leider nicht, so lange ich deine Arbeitsmappe und die entsprechenden Bedingungen nicht kenne - also müsstest du sie schon mal hochladen.

Bis später,
Karin

 

Hallo,

anbei ein Bespiel wie die Diagramme aussehen. Das Originale Dokument hat mehr als 100 Diagrammen. Bitte um Unterstützung!! Ziel ist ein Funktion oder VBA Code zu haben damit alle ähnliche Balkendiagramme die selben Farben bekommen. Danke Den Anhang test1.xlsx betrachten

 

Hi,

du musst den Beitrag nicht jedas mal zitieren, das belastet unnötig die Forumsdatenbank.

In deiner Mappe ist aber nicht ersichtlich, WELCHE Farbe WELCHE Säulen konkret bekommen sollen - deine Säulenformatierung sind die Standardfarben, die Excel automatisch vergibt.
Formatiere z.B. die Zellen in Spalte A, die die Rubrikenbeschriftung enthalten, mit der entsprechenden Füllfarbe.

Bis später,
Karin

 

Hallo,

Danke für die Antwort. Die Farben sind eigentlich total egal!!!Ich habe ein Beispiel hier eingefügt. Wie gesagt es geht nicht darum die Arbeit Manuell zu machen sondern ein Automatismus zu bekommen

Vielen Dank

 

Hi,

mir sind die Farben auch egal, aber Excel muss wissen, welche Datenreihen welche Farben bekommen sollen. ;-)

Mit dem folgenden Code kannst du das für alle Diagramme im aktiven Tabellenblatt automatisch ausführen lassen:

Code:

Sub DiasFormatieren()
   Dim chrDia As ChartObject
   Dim objReihe As Object
   Dim strQuelle As String
   For Each chrDia In ActiveSheet.ChartObjects
      With chrDia.Chart
         For Each objReihe In .SeriesCollection
            strQuelle = Application.Substitute(Split(objReihe.Formula, ",")(0), "=SERIES(", "")
            If Range(strQuelle).Interior.ColorIndex <> xlNone Then _
               objReihe.Interior.Color = Range(strQuelle).Interior.Color
         Next objReihe
      End With
   Next chrDia
End Sub

Bedingung ist, dass es alles Diagramme vom selben Typ sind.

Bis später,
Karin