Hallo,

Erklärung: Es gibt 3 Tabellenblätter namens "Gelb","Gruen","Diagramm". Auf Tabellenblatt "Diagramm" befindet sich ein Diagramm. In dem Diagramm sind die Werte von von den Tabellenblättern "Gelb" und "Gruen" dargestellt. Das Makro soll nun die Werte einfärben. Dies soll in Abhängigkeit davon geschehen, auf welchem Tabellenblatt die Werte hinterlegt sind. Alle Werte vom Tabellenblatt "Gruen" sollen grün eingefärbt werden, alle Werte vom Tabellenblatt "Gelb" gelb. Unten steht der Code für den mir an dieser Stelle die geeignete "if-Abfrage" fehlt (siehe Kommentare im Code). Ich hoffe ich habe mein Problem nun deutlich formuliert und mir kann jemand helfen ?
Vielen Dank !
LG Jonas

Sub Makro4()

ActiveSheet.ChartObjects("Diagramm 1").Activate
A = ActiveChart.SeriesCollection.Count

For i = 1 To A
' if Datenpunkte sind auf Tabellenblatt "Gruen" mache folgendes
    ActiveChart.SeriesCollection(i).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 192, 0)
        .Transparency = 0
        .Solid
    End With
'End If
' if Datenpunkte sind auf Tabellenblatt "Gelb" mache folgendes
    ActiveChart.SeriesCollection(i).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .Transparency = 0
        .Solid
    End With
'End If
    End
End Sub