Office: Farbe von Datenreihe anhand Referenz

Hallo,

ich bin auf das Forum aufmerksam geworden weil ich mein Excel Problem leider nicht lösen kann. Mir fehlt wohl einfach die Kenntnis in VBA nach meiner Recherche.

Ich habe eine Excel Tabelle die ein Template darstellt. Die Templates werden anhand Testergebnissen mit Daten befüllt, dabei gibt es für die Datenreihen eine Spalte "Cluster-Referenz".

Diese Referenz ist aus einer festen Auswahl (1-20). Dort habe ich für jeden Wert 1-20 eine Farbe zugeordnet.

Nun lade ich also über eine CSV neue Daten herein, und das Balkendiagramm verändert sich. Nun möchte ich aber, dass die Datenreihen entsprechend Ihrerer Referenz ihre Farbe zugeordnet bekommen, sodass immer Cluster 1 Rot, Cluster 2 Gelb usw. ist.

Ich habe eine Datei mal angehängt wo ihr es euch ansehen könnt und würde mich freuen wenn mir jemand helfen würde.

Gruß
Stefan

 

Hi Stefan,

Code:

Sub DatenreihenFarbe()
   Dim rngZelle As Range
   Dim lngReihe As Long
   Dim strBereich As String
   With Worksheets("Graphische Analyse").ChartObjects(1).Chart
      For lngReihe = 1 To .SeriesCollection.Count
         strBereich = Split(.SeriesCollection(lngReihe).Formula, ",")(2)
         Set rngZelle = Worksheets("Cluster-Referenz").Range("A4:A23").Find(Range( _
            Split(.SeriesCollection(lngReihe).Formula, ",")(2)), lookat:=xlWhole)
         If Not rngZelle Is Nothing Then .SeriesCollection(lngReihe).Interior.Color = _
            Worksheets("Cluster-Referenz").Range(rngZelle.Address).Offset(0, 1).Interior.Color
      Next lngReihe
   End With
End Sub

Bis später,
Karin

 

Hallo Karin,

vielen lieben Dank. Das hat super funktioniert.