BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Mit Makro Werte in einem Formular vorausberechnen

Alles zur Programmierung im LibreOffice.
Antworten
fharald8344
Beiträge: 1
Registriert: Di 2. Jun 2020, 22:10

Mit Makro Werte in einem Formular vorausberechnen

Beitrag von fharald8344 » Di 2. Jun 2020, 22:55

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
Beiträge: 2410
Registriert: So 10. Apr 2011, 10:10

Re: Mit Makro Werte in einem Formular vorausberechnen

Beitrag von F3K Total » Mi 3. Jun 2020, 18:35

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
Dateianhänge
Brutto_Per_Abfrage.zip
nur entpacken
(12.35 KiB) 150-mal heruntergeladen
Windows 10: AOO, LO Linux Mint: AOO, LO

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten