Textausgabe mit aktuellem Datum und Uhrzeit

[zabulon]

Hallo,

habe ein ganz simples Script, das das aktuelle Datum und Uhrzeit anzeigt:

Sub Datum_anzeigen()

Range("H36") = NOW

End Sub

In Zelle H36 steht dann z.B.  06.06.2023 21:04

Wie krieg ich es hin, daß folgender Text in Zelle H36 steht:  Aktualisiert am Dienstag, den 06.06.2023 um 21:04 Uhr ?

Ist das nur eine Formatisierungssache?

[Crazy Tom]

moin,

wie wäre es damit?

Code:

Sub Datum_anzeigen()
    Range("H36").Value = "aktualisiert am " & Format(Now, "dddd") _
        & ", den " & Format(Now, "DD.MM.YYYY") & " um " & Format(Now, "hh:mm") & " Uhr"
End Sub

mfg Tom

[zabulon]

Danke. klappt prima. Wieder etwas dazugelernt.

[RPP63]

Wenn man alle vorbelegten Datumssymbole im Fließtext mittels Backslash maskiert, reicht ein einzelner Bezug auf now

Code:

Range("H36") = Format(Now, "aktuali\siert a\m: dddd, \de\n dd.mm.yyyy u\m hh:nn U\hr")

betrifft hier
• s für second
• m für month
• d für day
• n für minute
• h für hour
fehlt nur noch w für week

Wenn Du wirklich etwas lernen willst, solltest Du Dir mal die umfangreiche Hilfe zur format-Funktion durchlesen und damit üben.
https://learn.microsoft.com/de-de/office...plications
Es lohnt sich!