[GELÖST] Formel plus Text

[Ich Bins]

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) 164-mal heruntergeladen

Viele Grüße
Ich Bins

[karolus]

Hallo

Code: Alles auswählen

……                      "=OBERGRENZE(BRTEILJAHRE(D26;D27;4)*12;0,5) & "" Monate"""

[F3K Total]

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

[Ich Bins]

Hallo Karolus,

& "" Monate"""
war die Lösung.

Vielen Dank

[Ich Bins]

Hallo F3K Total,

Dein Vorschlag ist eine elegante Lösung, wenn man mit den Monaten rechnen möchte.

Vielen Dank

[F3K Total]

Moin Du bist es,

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

[karolus]

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?!