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

Forumthread: Stand (Datum) automatisch anpassen

Stand (Datum) automatisch anpassen
16.03.2020 11:23:27
Uli
Moin,
eine Frage: Ich habe eine große Tabelle, die ich übers Jahr ein paar mal anpassen muss. Ganz oben steht bei mir immer: Stand: 15.02.2020 (Beispiel). Wenn ich jetzt etwas in der Tabelle ändere, kann ich dann per Formel den Stand automatisch auf das heutige Datum bekommen?
Vielen Dank im Voraus
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:35:26
Joachim
mit =heute() bekommst Du immer das aktuelle Datum.
Also auch dann, wenn nichts geändert wird.
Mit einer Formel kommst Du meines Erachtens nicht weiter, ,da musst Du mit VBA ran.
Wenn's Dir hilft: Die Tastenkombination STRG + Punkt schreibt das aktuelle Datum in die Zelle, dann geht es händisch schneller.
Gruß
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:36:14
Günther
Moin Uli,
automatisch bei Änderung geht imho nur per VBA.
Ich empfehle dir, in die entsprechende Zelle zu gehen und per Strg-. (Punkt) das aktuelle Datum eintragen zu lassen. Und wenn das Wort "Stand: " in die gleiche Zelle soll, dann geht das über das Benutzerdefinierte Zahlenformat.
Gruß
Günther
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:41:01
UweD
Hallo
wenn was geändert wurde, dann muss die Datei zwangsweise gespeichert werden.
Du könntest also das "Beforesave Event" dazu nutzen.
Der Code muss im VBE in den Codebereich von DieseArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Rng As Range
Set Rng = Range("A1")
Rng = Format(Date, "DD.MM.YYYY")
End Sub

LG UweD
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 11:54:21
Günther
Moin,
ob diese Vorgehensweise wirklich so gut ist, weiß ich nicht ...
Bekanntermaßen will Excel auch recht oft ein File speichern, obwohl ich gar nichts geändert habe. Darum würde ich noch eine Ja/Nein MsgBox da einbauen, damit nicht versehentlich das korrekte Datm überschrieben wird.
Gruß
Günther
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 12:11:12
Uli
Danke für die Hinweise.
Günther, wie sollte die Msgbox aussehen?
lg. Uli
AW: Stand (Datum) automatisch anpassen
16.03.2020 12:41:23
UweD
so...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Rng As Range
Set Rng = Range("A1")
If MsgBox("Datum ändern?", vbYesNo + vbQuestion) = vbYes Then Rng = Format(Date, "DD.MM. _
YYYY")
End Sub

LG UweD
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 12:45:32
UweD
Hallo nochmal
Alternative:
Wenn in DEINEM Bereich eine Änderung vorgenommen wird, dann wird das Datum angepasst.
Dazu muss dieses Makro in den Codebeich der betroffenen Tabelle.
Private Sub Worksheet_Change(ByVal Target As Range)
    Const APPNAME = "Worksheet_Change"
    On Error GoTo Fehler
    
    Dim Datum As Range, Rng As Range
    
    Set Datum = Range("A1")
    Set Rng = Range("D1:F50") 'anpassen 
    
    If Not Intersect(Rng, Target) Is Nothing Then
        Application.EnableEvents = False
        Datum = Format(Date, "DD.MM.YYYY")
    End If
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Stand (Datum) automatisch anpassen
16.03.2020 14:27:58
Werner
Hallo Uwe,
hier schreibst du dann aber doch Text in die Zelle:
Datum = Format(Date, "DD.MM.YYYY")

ich denke besser so:
Datum = CDate(Format(Date, "DD.MM.YYYY"))
Gruß Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Stand (Datum) automatisch anpassen in Excel


Schritt-für-Schritt-Anleitung

Um das Stand-Datum in Excel automatisch anzupassen, kannst Du die folgenden Methoden verwenden:

  1. Aktuelles Datum einfügen:

    • Du kannst das aktuelle Datum einfach mit der Formel =HEUTE() einfügen. Dies zeigt immer das heutige Datum an.
    • Um das Datum zu formatieren, gehe zu Start > Zahl > Datum.
  2. Automatische Aktualisierung bei Änderungen:

    • Wenn Du möchtest, dass das Datum automatisch aktualisiert wird, wenn Du Änderungen an der Tabelle vornimmst, musst Du VBA verwenden.
    • Öffne den Visual Basic Editor (VBE) mit ALT + F11 und füge den folgenden Code in das Modul „DieseArbeitsmappe“ ein:
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       Dim Rng As Range
       Set Rng = Range("A1")
       If MsgBox("Datum ändern?", vbYesNo + vbQuestion) = vbYes Then
           Rng = Format(Date, "DD.MM.YYYY")
       End If
    End Sub
  3. Änderung in einem bestimmten Bereich:

    • Um das Datum nur in einem bestimmten Bereich zu ändern, kannst Du den folgenden Code verwenden:
    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim Datum As Range
       Set Datum = Range("A1")
       If Not Intersect(Range("D1:F50"), Target) Is Nothing Then
           Application.EnableEvents = False
           Datum = Format(Date, "DD.MM.YYYY")
       End If
       Application.EnableEvents = True
    End Sub

Häufige Fehler und Lösungen

  1. Datum wird nicht aktualisiert:

    • Stelle sicher, dass die Makros aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros und aktiviere die Option für Makros.
  2. Falsches Datum angezeigt:

    • Überprüfe die Zellenformatierung. Das Datum sollte im Format „DD.MM.YYYY“ angezeigt werden.
  3. Makro funktioniert nicht:

    • Stelle sicher, dass der Code im richtigen Modul eingefügt wurde (z.B. „DieseArbeitsmappe“ oder das entsprechende Arbeitsblatt).

Alternative Methoden

  • Tastenkombinationen: Du kannst das aktuelle Datum auch schnell mit der Tastenkombination STRG + . (Punkt) einfügen. Dies ist eine schnelle Methode, um das Datum manuell zu aktualisieren.

  • Benutzerdefinierte Zahlenformatierung: Wenn Du das Wort „Stand: “ vor dem Datum in der gleichen Zelle haben möchtest, kannst Du ein benutzerdefiniertes Zahlenformat verwenden. Gehe zu Start > Zahl > Benutzerdefiniert und gebe Stand: " "DD.MM.YYYY" ein.


Praktische Beispiele

  • Beispiel 1: Du hast eine Tabelle, in der Du regelmäßig Daten eingibst. Wenn Du eine Änderung in den Zellen D1 bis F50 vornimmst, wird automatisch das Datum in Zelle A1 aktualisiert.

  • Beispiel 2: Du möchtest das Datum in der Kopfzeile eines Berichts haben. Füge den VBA-Code ein, um das Datum beim Speichern der Datei automatisch anzupassen.


Tipps für Profis

  • Automatisierung: Nutze VBA, um das Datum automatisch zu aktualisieren, wenn Du Änderungen vornimmst. Das spart Zeit und sorgt dafür, dass Deine Daten immer aktuell sind.

  • Datumsstempel: Verwende den automatischen Datumsstempel in Berichten, um die Nachverfolgbarkeit zu verbessern. Dies ist besonders nützlich bei der Erstellung von Druckdokumenten.


FAQ: Häufige Fragen

1. Wie kann ich das aktuelle Datum automatisch in Excel einfügen?
Du kannst die Formel =HEUTE() verwenden oder die Tastenkombination STRG + . nutzen, um das aktuelle Datum schnell einzufügen.

2. Funktioniert die automatische Datumserneuerung in allen Excel-Versionen?
Ja, die beschriebenen Methoden sind in den meisten Excel-Versionen anwendbar, insbesondere in Excel 2010 und höher.

3. Kann ich das Datum auch in anderen Formaten anzeigen?
Ja, Du kannst das Datumsformat in den Zellen nach Deinen Wünschen anpassen, indem Du die Zellen formatierst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige