BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!
> 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. 🤗
Alles zur Programmierung im LibreOffice.
-
Ich Bins
- Beiträge: 236
- Registriert: Do 2. Aug 2018, 12:30
Beitrag
von Ich Bins » Mi 1. Feb 2023, 17:05
Hallo zusammen,
LO 7.4.4.4 (x64)
mit nachfolgendem Code
Code: Alles auswählen
Sub Formel_plus_Text
oSheet=ThisComponent.Sheets.getByName("Tabelle1")
oSheet.getCellByPosition(3,27).FormulaLocal="=OBERGRENZE(BRTEILJAHRE(D26;D27;4)*12;0,5)"
End Sub
kann ich in angefügter Calc-Datei in Zelle D28
8,5
eintragen. Wie kann man der Formel noch Monate hinzufügen damit
8,5 Monate
in Zelle D28 steht?
Viele Grüße
Ich Bins
Zuletzt geändert von
Ich Bins am Do 2. Feb 2023, 00:13, insgesamt 1-mal geändert.
-
karolus
- Beiträge: 2170
- Registriert: Fr 10. Dez 2010, 10:01
Beitrag
von karolus » Mi 1. Feb 2023, 18:06
Hallo
Code: Alles auswählen
…… "=OBERGRENZE(BRTEILJAHRE(D26;D27;4)*12;0,5) & "" Monate"""
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
-
F3K Total
- Beiträge: 2411
- Registriert: So 10. Apr 2011, 10:10
Beitrag
von F3K Total » Mi 1. Feb 2023, 18:15
Moin,
versuche es so:
Code: Alles auswählen
Sub Formel_plus_Text
Dim aLocale As New com.sun.star.lang.Locale
oFormats = ThisComponent.NumberFormats
oFormatString = "0,0 ""Monate"""
nFormatDatumID = oFormats.queryKey( oFormatString, aLocale, True )'Gibt den Formatkey zurück, wenn nicht gefunden: -1
If nFormatDatumID < 0 Then
nFormatDatumID = oFormats.addNew( oFormatString, aLocale )'Format hinzufuegen wenn nicht vorhanden
endif
oSheet=ThisComponent.Sheets.getByName("Tabelle1")
oCell = oSheet.getCellByPosition(3,27)
oCell.FormulaLocal="=OBERGRENZE(BRTEILJAHRE(D26;D27;4)*12;0,5)"
oCell.Numberformat = nFormatDatumID
oCell2 = oSheet.getCellByPosition(5,27)
oCell2.FormulaLocal= "=2*D28"
oCell2.Numberformat = nFormatDatumID
End Sub
Da wird kein String "Monate" angehängt, sondern das richtige Zahlenformat eingetragen, so dass du mit der Zelle auch rechnen kannst. Lass das Makro mal so laufen und schau dir danach Zelle F28 an. Da müssten dann doppelt so viele Monate wie in D28 stehen.
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO
-
Ich Bins
- Beiträge: 236
- Registriert: Do 2. Aug 2018, 12:30
Beitrag
von Ich Bins » Do 2. Feb 2023, 00:12
Hallo Karolus,
& "" Monate"""
war die Lösung.
Vielen Dank
-
Ich Bins
- Beiträge: 236
- Registriert: Do 2. Aug 2018, 12:30
Beitrag
von Ich Bins » Do 2. Feb 2023, 00:13
Hallo F3K Total,
Dein Vorschlag ist eine elegante Lösung, wenn man mit den Monaten rechnen möchte.
Vielen Dank
-
F3K Total
- Beiträge: 2411
- Registriert: So 10. Apr 2011, 10:10
Beitrag
von F3K Total » Do 2. Feb 2023, 16:07
Moin Du bist es,
Ich Bins hat geschrieben: ↑Do 2. Feb 2023, 00:13
Dein Vorschlag ist eine elegante Lösung, wenn man mit den Monaten rechnen möchte.
Das sehe ich anders.
Wenn man ein Tabellen
kalkulationsprogramm zum Schreiben von Texten missbraucht, braucht man auch nicht auf eine vernüftige Formatierung der Zahlen zu achten
Gruß R
Zuletzt geändert von
F3K Total am Do 2. Feb 2023, 17:28, insgesamt 1-mal geändert.
Windows 10: AOO, LO Linux Mint: AOO, LO
-
karolus
- Beiträge: 2170
- Registriert: Fr 10. Dez 2010, 10:01
Beitrag
von karolus » Do 2. Feb 2023, 16:57
Hallo
@F3K Total: ich bin ganz deiner Meinung, aber was kann man retten wenn jemand eine Zeitdauer in auf halbe »Monate« aufgerundet, als
»Fliesskomma-Monate darstellen, und zudem das Bedürfniss hat diese Formel per Makro zu erstellen?!
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)
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 ❤️