Sub oDiatest()
With Sheets("Dia")
.Shapes(1).Delete
With .Shapes.AddChart.Chart
.ChartType = xlXYScatterSmoothNoMarkers
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Values = "=Tabelle4!A1:A5"
.XValues = "=Tabelle4!B1:B5"
With .Format.Line
.ForeColor.RGB = RGB(66, 123, 171)
End With
End With
.SeriesCollection.NewSeries
With .SeriesCollection(2)
.Values = "=Tabelle4!C1:C5"
.XValues = "=Tabelle4!D1:D5"
With .Format.Line
.Style = 1
.ForeColor.RGB = RGB(255, 0, 0)
.BeginArrowheadLength = 2
.BeginArrowheadStyle = 3
.BeginArrowheadWidth = 1
.EndArrowheadLength = 2
.EndArrowheadStyle = 3
.EndArrowheadWidth = 1
End With
End With
End With
End With
End Sub