Interpolation

Public Function InterpLIN(Xi As Range, Yi As Range, x) As Double
'Führt für x eine lineare Interpolation zwischen 2 Punkten aus.
'Bei Extrapolation wird die Steigung des ersten bzw. letzten Segments weitergeführt.
Dim y0, m, i, n
For i = 1 To Xi.Count
If Not (IsEmpty(Xi(i))) Then
n = n + 1
End If
Next
If x  Xi(n) Then
m = 0
y0 = 0
ElseIf x >= Xi(n) Then
m = (Yi(n - 1) - Yi(n)) / (Xi(n - 1) - Xi(n))
y0 = Yi(n - 1) - Xi(n - 1) * m
Else
For i = 1 To n - 1
If (x >= Xi(i)) And (x