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. 🤗

[GELÖST] Formel plus Text

Alles zur Programmierung im LibreOffice.
Antworten
Ich Bins
Beiträge: 236
Registriert: Do 2. Aug 2018, 12:30

[GELÖST] Formel plus Text

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?
Formel-plus-Text.ods
(13.36 KiB) 44-mal heruntergeladen
Viele Grüße
Ich Bins
Zuletzt geändert von Ich Bins am Do 2. Feb 2023, 00:13, insgesamt 1-mal geändert.

Benutzeravatar
karolus
Beiträge: 2170
Registriert: Fr 10. Dez 2010, 10:01

Re: Formel plus Text

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: 2409
Registriert: So 10. Apr 2011, 10:10

Re: Formel plus Text

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

Re: Formel plus Text

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

Re: Formel plus Text

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: 2409
Registriert: So 10. Apr 2011, 10:10

Re: [GELÖST] Formel plus Text

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 Tabellenkalkulationsprogramm 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

Benutzeravatar
karolus
Beiträge: 2170
Registriert: Fr 10. Dez 2010, 10:01

Re: [GELÖST] Formel plus Text

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?! :roll:
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 ❤️

Antworten