Text und formatiertes Datum einfügen (Verketten)

[juup]

Hallo zusammen,

ich versuche mich derzeit an meinen ersten Makros und scheitere leider schon bei einer einfachen Verkettung. Ziel ist in eine Zelle einen Text plus das aktuelle Datum zu schreiben, z.B. "Ort, den 15.01.2024".

Mit folgendem Code kann ich das Datum unformatiert mit dem Text anhängen:

Code: Alles auswählen

Sub Main

oDoc   = ThisComponent
oSheets = oDoc.Sheets
oSheet = oSheets.getByName("Tabelle1")
oCell = oSheet.getCellByPosition(0,0)
oCell.setString("Ort, den " & now())

Mit diesem bekomme ich eine Zelle entsprechend formatiert:

Code: Alles auswählen

oCell2 = oSheet.getCellByPosition(1,0)
oCell2.value = now()
oCell2.NumberFormat = 30

End Sub

Wie geht beides ohne extra eine Zelle mit dem Datum zu befüllen?

Vielen Dank
juup

[juup]

Erledigt:

Code: Alles auswählen

 Format(now(),"DD.MM.YY")