Das Programm ermittelt selber, wie viele Zellen und spalter beschrieben sind.
Sub DiagrammAutoFormat()
Range("B1:IR4").Select // -> hier sollte dann etwas
// dynamisches Eingefügt werden
// können
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("B1:IR4"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.CrossesAt = 1
.TickLabelSpacing = 100
.TickMarkSpacing = 100
.AxisBetweenCategories = True
.ReversePlotOrder = False
End With
With ActiveChart.Axes(xlCategory)
.CrossesAt = 1
.TickLabelSpacing = 100
.TickMarkSpacing = 100
.AxisBetweenCategories = True
.ReversePlotOrder = False
End With
End Sub