Set
rngAnteil = Range(Worksheets(blatt2).Cells(q + 5, 2), Worksheets(blatt2).Cells(q + 5, 16))
Set
rngVorgänge = Range(Worksheets(blatt2).Cells(q + 3, 2), Worksheets(blatt2).Cells(q + 3, 16))
o = Worksheets(blatt2).Cells(q + 8, 2).Left
y = Worksheets(blatt2).Cells(q + 8, 2).Top
Set
cht1 = Worksheets(blatt2).ChartObjects.Add(o, y, 280, 320)
With
cht1.Chart
.SetSourceData Source:=rngAnteil, PlotBy:=xlColumns
.ChartType = xlColumnClustered
.HasLegend =
False
.HasTitle =
True
.ChartTitle.Text =
"Kommissionierung - Anteil pro Autrag"
.ChartTitle.Font.Size = 10
.SeriesCollection(1).HasDataLabels =
True
.SeriesCollection(1).XValues = rngVorgänge
End
With