Sub berechne_quadratische_funktion()
Dim param_ As Integer
Dim x(1 To 10000) As Double
Dim y(1 To 10000) As Double
Dim uebergabe As Integer
aktueller_Name = CStr(ActiveSheet.Name)
'''''''''''''''''''''''''''''''''''''''''''''''''
flag = 1
ZEILEN_OFFSET = 13
For i = 1 To 1000
    zeile = i + ZEILEN_OFFSET
    iterations_wert_wert_der_liste = ActiveWorkbook.Worksheets(aktueller_Name).Range("D" & zeile).Value
    If iterations_wert_wert_der_liste = "" And flag = 1 Then
        flag = 0
        param_ = zeile - 1
    End If
Next i
'''''''''''''''''''''''''''''''''''''''''''''''''
intervall = param_ - ZEILEN_OFFSET
'MsgBox intervall
k = 0
For i = 1 To intervall Step 1
    w = i + ZEILEN_OFFSET
    x(i) = ActiveWorkbook.Worksheets(aktueller_Name).Range("D" & w).Value
    '''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''
    y(i) = 1 * ((x(i)) ^ 3) - 100
    '''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''
    ActiveWorkbook.Worksheets(aktueller_Name).Range("E" & w).Value = y(i)
    k = k + 1
Next i
Call plot_graph(param_)
End Sub
Sub plot_graph(parameter_ As Integer)
    Range("D14:E" & parameter_).Select
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
    ActiveChart.SetSourceData Source:=Range("FUNKTION_!$D$14:$E$" & parameter_)
End Sub