lineare interpolation von werten
11.03.2005 19:47:40
werten
a1 2
a2
a3
a4 5
a5
a6
a7 10
..
..
würde gerne zwischen a1 und a4 bzw. a4 und a7 interpolieren. die spalte ist natürlich länger. hier das skript aus diesem forum welches die daten in einer spalte, wenn sie nur zwei werte hat interpoliert.
Sub interpolieren_senkr()
Dim betr(100), ziel$
Dim z%, r%, s%, t%, asp%
sp = 1
Do While Cells(1, sp) <> ""
sp = sp + 1
Loop
For s = 1 To sp - 1
ziel = Chr(s + 64) & 65536
z = Range(ziel).End(xlUp).Row
For r = 2 To z
wert1 = Cells(1, s)
If Cells(r, s) = "" Then asp = asp + 1
If Cells(r, s) <> "" Then wert2 = Cells(r, s)
Next r
diff = wert2 - wert1
intp = diff / (asp + 1)
For t = 2 To asp + 1
wert1 = wert1 + intp
Cells(t, s) = wert1
Next t
asp = 0
Next s
End Sub
wie kann ich es ändern damit es zwischen zwei markierten werten interpoliert?
wenn es eine lösung gibt die automatisch funktioniert also ohne markierung wäre ich natürlich dankbar :)
gruß & dank
arthur
Anzeige