Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aktuelles Datum in Zelle schreiben

Aktuelles Datum in Zelle schreiben
Tim
Hallo,
kann mir jemand sagen, wie ich das jeweils aktuelle Datum (ohne Uhrzeit) per VBA in eine Zelle schreibe ?
Ich würde diese Funktion gerne als Teil von Workbook_Open verwenden.
Vielen Dank für jeden Tipp !
VG, Tim
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Aktuelles Datum in Zelle schreiben
05.06.2012 13:35:37
Sheldon
Hi Tim,
ThisWorkbook.Sheets("Tabelle2").Range("A1").Value = Date
Gruß
Sheldon
AW: Aktuelles Datum in Zelle schreiben
05.06.2012 13:51:14
Tim
Hallo Sheldon,
vielen Dank dafür - klappt perfekt ! :-)
VG und einen schönen Tag noch,
Tim
AW: Aktuelles Datum in Zelle schreiben
05.06.2012 13:37:29
CitizenX
Hi,
Bsp.
deinezelle=Date -aktuelles Datum
deinezelle=Now -aktuelles Datum &Zeit
deineZelle=Time-aktuelle Zeit
Grüße
Steffen
Anzeige
AW: Aktuelles Datum in Zelle schreiben
05.06.2012 13:52:54
Tim
Hallo Steffen,
vielen Dank !
Ich brauche hier eine Lösung per VBA, aber Sheldon hat mir den gerade geschickt, also alles bestens - danke trotzdem für die Infos ! :-)
VG und einen schönen Nachmittag,
Tim

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Aktuelles Datum in Excel-Zelle per VBA einfügen


Schritt-für-Schritt-Anleitung

Um das aktuelle Datum in eine Zelle per VBA zu schreiben, folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Projekt-Explorer mit der rechten Maustaste auf "DieseArbeitsmappe" und wähle "Code anzeigen".

  3. Füge den folgenden VBA-Code in das Fenster ein:

    Private Sub Workbook_Open()
        ThisWorkbook.Sheets("Tabelle2").Range("A1").Value = Date
    End Sub
  4. Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (*.xlsm).

  5. Schließe die Arbeitsmappe und öffne sie erneut. Das aktuelle Datum wird jetzt in Zelle A1 auf "Tabelle2" geschrieben.


Häufige Fehler und Lösungen

  • Fehler: #NAME? in der Zelle

    • Lösung: Überprüfe, ob der VBA-Code korrekt eingegeben wurde und dass die Arbeitsmappe als .xlsm gespeichert wurde.
  • Fehler: Das Datum wird nicht aktualisiert

    • Lösung: Stelle sicher, dass das Makro beim Öffnen der Arbeitsmappe ausgeführt wird. Dies geschieht durch die Verwendung des Workbook_Open-Ereignisses.

Alternative Methoden

Wenn Du das Datum nicht per VBA, sondern mit einer Formel einfügen möchtest, kannst Du die folgende Methode verwenden:

  • Formel für aktuelles Datum:
    =HEUTE()
  • Formel für aktuelles Datum und Uhrzeit:
    =JETZT()

Diese Formeln aktualisieren sich automatisch, wenn Du die Datei öffnest oder die Zelle neu berechnest.


Praktische Beispiele

  1. Heutiges Datum in Zelle A1 schreiben:

    Sub SchreibeHeutigesDatum()
        Range("A1").Value = Date
    End Sub
  2. Aktuelles Datum und Uhrzeit in Zelle B1 schreiben:

    Sub SchreibeAktuellesDatumUndUhrzeit()
        Range("B1").Value = Now
    End Sub
  3. Aktuelle Uhrzeit in Zelle C1 schreiben:

    Sub SchreibeAktuelleUhrzeit()
        Range("C1").Value = Time
    End Sub

Tipps für Profis

  • Verwende Formatierungen, um das Datum in einem bestimmten Format anzuzeigen. Zum Beispiel:

    Range("A1").Value = Date
    Range("A1").NumberFormat = "dd.mm.yyyy"
  • Wenn Du sowohl Datum als auch Uhrzeit in einer Zelle speichern möchtest, kannst Du dies so tun:

    Range("D1").Value = Now ' Datum und Uhrzeit

FAQ: Häufige Fragen

1. Wie schreibe ich das heutige Datum in eine andere Zelle?
Du kannst einfach die Zelle ändern, in die das Datum geschrieben werden soll, z.B. Range("B1").Value = Date.

2. Wie kann ich nur die aktuelle Uhrzeit anzeigen?
Verwende den VBA-Befehl Range("A1").Value = Time, um die aktuelle Uhrzeit in Zelle A1 anzuzeigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige