Zielwertsuche automatisieren

[hochbass]

Es ist verwunderlichm, das es trotz massiver Nachfragen seit 2004 noch keine Lösung dafür gibt die Zielwertsuche als Fuinktion zugenerieren.
Ich möchte eine komplette Spalte den Zielwert berechnen lassen mit einer Funktion in der nachfolgenden Spalte.

In alten Beiträgen hab ich folgenden Quelltext gefunden indem ein Makro für die Zielwertsuche dargestellt wird. Das Makro funktioniert in der Form, das die variable Zelle geändert wird, wie gewünscht.
leider ist aber das einzige was die Funktion zurückgibt das Ergebnis "0".
Wo liegt der Fehler?

Code: Alles auswählen

sub Zielwertsuche
dim Ergebnis as new  com.sun.star.sheet.GoalResult
dim FormelAdresse as new  com.sun.star.table.CellAddress
dim VariablenAdresse as new  com.sun.star.table.CellAddress
dim Zielwert as double
dim zeile as integer
   
oDoc = ThisComponent
oSheet = ThisComponent.Sheets(5)
FormelAdresse.Column = 5    'Spalte F
VariablenAdresse.Column = 4 'Spalte E
Zielwert = 67
for zeile = 36 to 46          'Zeile 37::::47
VariablenAdresse.Row = zeile
FormelAdresse.Row = zeile
Ergebnis = oDoc.seekgoal(FormelAdresse,VariablenAdresse,Zielwert)

'msgbox Ergebnis.result      'Ausgabe als Messagebox
oSheet.getCellByPosition(VariablenAdresse.Column,zeile).value = Ergebnis.result
next
end sub

Gibt es etwa andere Lösungen, mehrere Zielwertsuchen automatisch ausführen zu lassen?

konkretes Problem:
Tabelle mit vielen Zeilen gleicher Struktur;
C49,D49 - bekannt
Zelle E49: Argument , was das gesuchte Ergebnis darstellen soll.
Zelle F49: =POTENZ(E49;4)/(C49*E49+D49) -- Vorgabewert

Ich seh mich leider nicht im Stande die Formel als E49= f ( F49) umzustellen.