VBA Heimspiel/Auswaertsspiel auslesen und farblich markien

[schauan]

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:

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 Sub

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...)

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