[Excel] Aktuelles Datum in eine Zelle "stempeln"

[Glausius]

Hallo,

immer wieder kommt es vor, dass in eine Tabelle (Vorlage) das aktuelle Datum eingetragen werden soll, sich aber bei einem erneuten Öffnen dieser Datei nicht verändern soll.

Eine VBA-Lösung dazu wäre folgender kurzer Code, der hinter DieseArbeitsmappe gehört und das aktuelle Systemdatum in die Zelle B2 der Tabelle1 schreibt:

Code:

Private Sub Workbook_Open()
     If Sheets(1).Range("B2") = "" Then Sheets(1).Range("B2") = Date
End Sub

Anstelle von Date kann auch Now bzw. Time einsetzen, für Datum und Uhrzeit bzw. nur die Uhrzeit. Die Zelle kann natürlich auch beliebig gewählt werden und ebenso das Tabellenblatt, wobei dazu der Name des Tabellenblattes explicit in der Klammer hinter Sheets und in "" anzugeben ist.

[Hajo_Zi]

Hallo,

falls man in der Tabelle das heutige Datum eintragen möchte, ist es die Tastenkombination Strg+Punkt, für Zeit Strg+:

Eine andere Variante:
In irgendeine Zelle =Heute() und in der Wunschzelle, Daten, Gültigkeit auf die Zelle mit Heute(). Es kann dann das heutige Datum ausgewählt werden und es ändert sich morgen nicht.

Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Homepage">