Polygonzug interpolieren
Günther
Ich habe einen Polygonzug, der durch x und y Koordinaten definiert wird. (Die Anzahl der x und y Werte sei variabel)
Bsp.:
P1 (x=1/ y=5); P2(x=2,2 / y=7,4); P3(x=3.5/ y=9,12) usw....
jetzt möchte ich zu einem beliebigen x_vorhanden den zugehörigen y-Wert interpoliert haben.
Händisch: kein Problem und auch mit vorhandenen Excelfunktionen hab ich es hinbekommen. Allerdings will ich das ganze als Prozedur schreiben, weil ich nicht immer meine Excel-sheets so aufblasen will.
Ich dachte mir ich mache eine Prozedur ungefähr wie diese
Public Function pginterpol(x_vorh, Matrix)
Matrix = Selected
'Der zu x_vorh nächst größere x-Wert
xOG = "=formula(min(if Matrix >= xges, Matrix))"
'Der zu x_vorh nächst kleinere x-Wert
xUG = "=formula(max(if Matrix
Blöd nur, dass die definierte Matrix eigentlich einer Range angehört (z.Bsp Range("B5:C123")) und dass die Variablen yOG, yUG usw......von der Funktion Formula scheinbar keine Zahlen sind. (Also wenn ich beispielsweise schreibe Range("D4") = xUG....steht in der Arbeitsmappe "falsch"....
Günther