Sub test()
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
Set rng = ActiveCell
With ActiveChart
.SeriesCollection.NewSeries
.FullSeriesCollection(1).Name = "=""GesamtenWerte"""
.FullSeriesCollection(1).XValues = "='Tabelle 1'!$B$6:$B$294"
.FullSeriesCollection(1).Values = Range(rng.Offset(-291, 0), rng.Offset(-3, 0))
.SetElement (msoElementChartTitleAboveChart)
Selection.Formula = ActiveSheet.Cells(1, ActiveCell.Column - 1)
.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
<strong>.Axes(xlValue).AxisTitle.Select</strong>
Selection.Caption = "Area"
.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
.Axes(xlCategory).AxisTitle.Select
Selection.Caption = "Probennummer"
End With
End Sub
Gruß John