Office: Datenreihen automatisch eine Farben zuordnen

Hallo!

Ich versuche gerade, ein XY-Diagramm zu erstellen dass mehrere Datenreihen beinhaltet, die - in Abhängigkeit des Reihennamens - eine bestimmte Farbe annehmen sollen (s. Anhang).

Bei dem Versuch, ein in diesem Forum gefundenes VBA-Script umzuschreiben bin ich kläglich gescheitert, daher würde ich mich über Eure Hilfe freuen!!

Dank im Voraus!

 

Hi,

Code:

Sub ReihenFormatieren()
    Dim inReihe As Integer
    With ActiveSheet.ChartObjects(1).Chart
        For inReihe = 1 To .SeriesCollection.Count
            With .SeriesCollection(inReihe)
                Select Case .Name
                    Case "A1"
                        .MarkerBackgroundColorIndex = 5
                        .MarkerForegroundColorIndex = 5
                    Case "B1"
                        .MarkerBackgroundColorIndex = 3
                        .MarkerForegroundColorIndex = 3
                    Case "C1"
                        .MarkerBackgroundColorIndex = 4
                        .MarkerForegroundColorIndex = 4
                End Select
            End With
        Next inReihe
    End With
End Sub

Die ColorIndex-Nummern musst du an deine Bedingungen anpassen.

Bis später,
Karin

 

Super, das funktioniert ohne Probleme!

Da ich hier scheinbar an eine Expertin geraten bin, würde ich gerne noch eine Frage stellen (die ich mir über beverly.excelhost.de/diagramm_vba.htm leider nicht beantworten konnte ;) ):

Was müsste man aufzeichnen bzw. programmieren, damit aus den Daten ein Diagramm generiert wird, dessen Achsenformatierung und -beschriftung ebenfalls nach Vorgabe läuft (z.B. logarithmische Skalierung, Hilfslinien etc.) und auf das auch noch der o.g. Reihenfarben-Code angewandt wird?

Hab's bis jetzt nur geschafft ein Makro aufzuzeichnen wodurch das Diagramm erstellt wird. Danach lasse ich den "Farb-Code" ausführen und das funktioniert auch. Nur die Formatierung krieg ich nicht hin und eleganter wäre es auf jeden Fall, alles auf einmal ablaufen zu lassen!

Vielen Dank schonmal falls Du mir weiterhelfen kannst!

Philip

 

Hi Philip,

welche Excel-Version verwendest du? Wenn es eine Version < 2007 ist, kannst du alle Schritte, wie du das Diagramm erstellen und formatieren willst, mit dem Makrorekorder aufzeichnen. In die letzte Zeile des aufgezeichneten Codes (also vor End Sub) schreibst du dann die Zeile

Code:

ReihenFormatieren

Damit wird das Marko zum Formatieren der Datenreihen gleich im Anschluss an das Erstellen des Diagramms ausgeführt.

Bis später,
Karin

 

Es läuft jetzt einwandfrei, vielen Dank für die Hilfe!!