Option Explicit
Sub sub_Neue_Datenreihe_aus_Tabelle()
Dim obj_Diagramm As Chart
Dim i As Long
Dim x1 As String
Dim x2 As String
Set obj_Diagramm = ThisWorkbook.Worksheets("Tabelle3").ChartObjects("Diagramm 1").Chart
For i = 1 To 10 Step 0.15
x1 = .Cells(i + 45, 2).adress
x2 = .Range(.Cells(i + 45, 3).Cells(i + 45, 272)).adress
With ActiveChart.SeriesCollection.NewSeries
.Values = "=" & x1
.Values = "=" & x2
End With
End Sub