gibt es eine Möglichkeit per Makro immer zwischen zwei aufeinanderfolgenden (befüllten) Zellen in einer Spalte zu interpolieren (linear)? Die Anzahl leerer Zellen dazwischen, ist dabei immer verschieden.
Vielen Dank
Marc
gibt es eine Möglichkeit per Makro immer zwischen zwei aufeinanderfolgenden (befüllten) Zellen in einer Spalte zu interpolieren (linear)? Die Anzahl leerer Zellen dazwischen, ist dabei immer verschieden.
Vielen Dank
Marc
Dein Beitrag ist 2x im Forum. Ich wähle einen mal ab damit er nicht im weiteren Verlauf 2 x unter offen erscheint.
Gruß Hajo
mit diesem Makro sollte es gehen:
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite
danke für die Hilfe, allerdings stehen bei mir die werte, zwischen denen interpoliert werden soll, untereinander (mit unterschiedlich vielen leerzellen dazwischen) in einer spalte.
also z.B. in a1 und a6 werte (dazwischen nichts) und dann wieder in a8 der nächste wert. d.h. es müsste zwischen a1 und a6 und zwischen a6 und a8 interpoliert werden.
vielen dank
marc
bekommst Du das selber hin, oder brauchst Du Hilfe?
Gruß Klaus-Dieter
ich wäre für ein bischen Hilfe dankbar. hab es gestern selber probiert, hat aber nicht geklappt.
gruß
marc
anbei der Quelltext:
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
Code eingefügt mit: Excel Code Jeanie
So sieht die Tabelle aus:
herzlichen Dank!!!!!
Genau sowas hab ich gesucht.
Gruß
Marc