In Formularfeld schreiben mit Makro

[lxxfanbase]

Hallo an alle,

ich hätte von euch nochmal Hilfe gebraucht
Ich habe ein Brechnung durchgeführt und im Formularfeld Curency übergeben.
Der wert wird auch eingetragen .
Doch nachdem ich den Datensatz gewechselt habe ist das feld leer.
Könnt ihr mir helfen damit der Wert reingeschrieben wird

Hier der Code:
sub gesamtpreistd
Main
dim oeinzel as Object
dim ogesamt as Object
dim stdanzahl as Object
dim oelementview as Object
dim namef as String
dim oCtl as Object
dim einzelpr as Currency
dim gesamtpreis as Currency
dim stdanzahlp as Currency
oDoc = ThisComponent
oCtl=oDoc.getCurrentController()
oForm1 = oDoc.Drawpage.forms.getByname("leistungform")
oForm2=oForm1.getByName("subleistungform")
oeinzel = oForm2.getByName( "einzelpreisstd" )
stdanzahl=oForm2.getByname("stdanzahl")
ogesamt=oForm2.getByName("preisstd")
oelement=oCtl.getcontrol(ogesamt)
stdanzahlp=stdanzahl.value
einzelpr=oeinzel.Value
gesamtpreis=stdanzahlp*einzelpr
oelement.value=gesamtpreis
ogesamt=oelement

end sub

Danke im voraus für eure Hilfe

mfg

Georg