Mit Makro Werte in einem Formular vorausberechnen

[fharald8344]

Hallo,

Ich möchte wie in LibreOffice Dokumentation Kapitel 9 Seite 41 ein Makro schreiben, das mir den Nettopreis in ein Feld schreibt.

Sub testmitfeld4
odoc=thisComponent
oSheet=odoc.sheets(0)
odraw1=oSheet.drawpage
form1=odraw1.forms.getbyIndex(0)
DIM feld1 AS Object
DIM feld2 AS OBJECT
feld1 = Form1.getByName("txt1")
feld2 = Form1.getByName("txt2")
Netto = feld1.getCurrentValue / 1.20
print Netto
feld2.BoundField.UpdateDouble(feld1.GetCurrentValue / 1.20)

END SUB

Es ist für euch sicher einfach, aber ich suche schon lange nach einer Lösung.
Was mache ich falsch?

[F3K Total]

Moin,
das Makro, das du hier zeigst, ist für ein Tabellendokument geschrieben.
In einem Tabellendokument benötigst du für eine so einfache Berechnung kein Makro, da reicht eine Formel.
Wenn du ein an eine Datenbank gebundenes Formular hast, reicht eine Abfrage. So eine einfache Berechnung, eine Division, kann man sogar mit einer an ein Tabellendokument gebundenen Datenbankdatei machen.
Am Besten wäre, du lädst deine Daten, ggf. verfremdet hier hoch.
Anbei eine einfache Beispieldatenbank mit einem Formular, ändere den Brutto Preis und siehe was ohne Makro geschieht.

Gruß R