DoSchleife-Wenn, dann in nächste Zelle und nochmal
29.07.2005 18:03:53
thomas
ich muss mich nun mit VBA beschäftigen und habe folgendes Problem. ICh möchte fehlende Werte Interpolieren. In Spalte A stehen die x-Werte und in Spalte B die zugehörigen Funktionswerte. In Spalte C stehen die x Werte für welche zwischen den jeweiligen x-Werten aus A die Funktionswerte Interpoliert werden sollen. Die Formel ist ganz einfach.f(interpoliert)=f(x1)+(f(x2)-f(x1))/(x2-x1)*(x-x1) In Spalte D soll erstmal (f(x2)-F(x1))/(x2-x1) rein(Also Hier:(31,46-31,60)/(481-9)(=(B3-B2)/(A3-A2))
Nun sollen in Spalte E die Interpolierten Werte sthen und zwar für die x-Werte aus C.( Für x = 12 sieht das so aus:=D2*(C2-A2)+B2 bzw.=$D$2*(C2-$A$2)+$B$2, nun kann ich zwar die Zellen ziehen bis C6 und habe auch für den ersten Abschnitt die Werte, aber nun soll ein VBA Programm selbsständig die resrlichen Werte ausrechnen. d.h. (B4-B3)/(A4-A3) und dafür die Stützstellen aus Spalte C. ICh kann dem Programm nicht beibringen, das wenn es die leere Zelle erreicht um eins weiterspringt und die ganze Sache für die nächsten Werte macht. Die tabelle ist riesig, deswegen sollte das mit VBA gehen, und ich habe 40 Stück davon.:-)
x f(x) x(Stütz) f(x2)-F(x2)/x2-x1 f(Interpol)
9 31,60 12 -0,00028813 31,59913559
481 31,46 102 0,000692112 31,57320339
874 31,74 295 31,51759322
407 31,48532203
467 31,4680339
697
700
704
732
759
836
858
Ich hoffe Ihr konntet mir folgen.
Danke schonmal
https://www.herber.de/bbs/user/25134.xls