01.06.2015, 09:34
Hallo ahmad,
es gibt bei den Excel-Diagrammen auch einen Weg über "normale" Formatierungen. Du benutzt einfach 3 Hilfsspalten, in die Du je nach Auswahl des Spielortes die Daten aus Spalte A übernimmst.
Mt VBA könntest Du auch mit Aufzeichnen des codes weiterkommen. Ich habe hier mal den ersten Balken Gelb gefärbt:
Einen großteil des codes braucht man nicht, da kannst Du bei entsprechendem Interesse auch etwas experimentieren. Z.B. steht oben mehrmals was mit Select. Das mit den ...Points zeigt Dir, dass ich unterschiedliche Datenpunkte gewählt habe, aber nur nach dem (3) was damit anstelle. Wenn ich mit ..(2) nichts mache, brauch ich ihn auch nicht selectieren und kann die Zeile weglöschen.
Der Teil mit With ... zweimal drin und sieht sich ziemlich ähnlich. Der erste Teil kann weg. So sieht das ganze dann schon kürzer und übersichtlicher aus. (Es geht aber noch mehr...)
es gibt bei den Excel-Diagrammen auch einen Weg über "normale" Formatierungen. Du benutzt einfach 3 Hilfsspalten, in die Du je nach Auswahl des Spielortes die Daten aus Spalte A übernimmst.
Mt VBA könntest Du auch mit Aufzeichnen des codes weiterkommen. Ich habe hier mal den ersten Balken Gelb gefärbt:
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).Points(2).Select
ActiveChart.FullSeriesCollection(1).Points(3).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Solid
End With
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
End SubEinen großteil des codes braucht man nicht, da kannst Du bei entsprechendem Interesse auch etwas experimentieren. Z.B. steht oben mehrmals was mit Select. Das mit den ...Points zeigt Dir, dass ich unterschiedliche Datenpunkte gewählt habe, aber nur nach dem (3) was damit anstelle. Wenn ich mit ..(2) nichts mache, brauch ich ihn auch nicht selectieren und kann die Zeile weglöschen.
Der Teil mit With ... zweimal drin und sieht sich ziemlich ähnlich. Der erste Teil kann weg. So sieht das ganze dann schon kürzer und übersichtlicher aus. (Es geht aber noch mehr...)
Code:
Sub Makro1()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).Points(3).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
End Sub