Moin!
Noch ein Problem. Ich erstelle per VBA ein Diagramm:
ThisWorkbook.Sheets("StatÜbung").Select
With ActiveChart
.HasTitle = True
.PlotArea.Interior.ColorIndex = 49
.ChartTitle.Characters.Text = "Entwicklung Übung " & UName
.ChartTitle.Font.FontStyle = "Fett"
.ChartTitle.Font.Size = 14
.ChartTitle.Font.ColorIndex = 49
.SetSourceData Source:=Sheets("History").Range("" & FName & "2:" & FName & "254"), PlotBy:=xlColumns
.SeriesCollection(1).DataLabels.AutoScaleFont = True
.SeriesCollection(1).DataLabels.Font.FontStyle = "Fett"
.SeriesCollection(1).DataLabels.Font.ColorIndex = 6
.SeriesCollection(1).XValues = Sheets("History").Range("L2:L254")
.SeriesCollection(1).Interior.ColorIndex = 3
.SeriesCollection(1).Interior.ColorIndex = 3
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScale = 126
.Axes(xlValue).ScaleType = xlLinear
.Axes(xlValue).TickLabels.Font.FontStyle = "Fett"
.Axes(xlValue).TickLabels.Font.Size = 10
.Axes(xlValue).TickLabels.Font.ColorIndex = 49
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Erreichte Punkte"
.Axes(xlValue).AxisTitle.Font.FontStyle = "Fett"
.Axes(xlValue).AxisTitle.Font.Size = 10
.Axes(xlValue).AxisTitle.Font.ColorIndex = 49
.Axes(xlValue).HasMajorGridlines = True
.Axes(xlValue).MajorGridlines.Border.ColorIndex = 55
.Axes(xlCategory).TickLabels.Font.FontStyle = "Fett"
.Axes(xlCategory).TickLabels.Font.Size = 10
.Axes(xlCategory).TickLabels.Font.ColorIndex = 49
.Axes(xlCategory).TickLabels.NumberFormatLinked = True
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Datum"
.Axes(xlCategory).AxisTitle.Font.FontStyle = "Fett"
.Axes(xlCategory).AxisTitle.Font.ColorIndex = 49
.ApplyDataLabels xlDataLabelsShowValue
End With
Die Säulen die angezeigt werden, möchte ich gerne, wenn der Wert nicht höher als 60 ist, rot gefärbt haben, ist er grösser soll die Säule grün eingefärbt werden.
Mir fehlt aber der Ansatz, welche Objekte ich dafür bearbeiten muss 
Vielleicht kann mir ja jemand helfen.
lg micha