Thema:Grafik
wer kann erweitern?
schrift arial
grösse 8
With cht
.SetSourceData Source:=Sheets("Auswertung1").Range("A1").CurrentRegion, PlotBy:=xlRows
.SeriesCollection(1).Interior.ColorIndex = 3
.HasLegend = True
.HasTitle = True
.ChartTitle.Characters.Text = "Zwangsbremsungen"
.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False
.Export sFile
End With
danke
gruss achim h.