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
|