Text und formatiertes Datum einfügen (Verketten)
Verfasst: Mi, 15.01.2014 10:39
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:
Mit diesem bekomme ich eine Zelle entsprechend formatiert:
Wie geht beides ohne extra eine Zelle mit dem Datum zu befüllen?
Vielen Dank
juup
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())Code: Alles auswählen
oCell2 = oSheet.getCellByPosition(1,0)
oCell2.value = now()
oCell2.NumberFormat = 30
End SubVielen Dank
juup