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

Forumthread: Zeit beim Speichern in Zelle schreiben.

Zeit beim Speichern in Zelle schreiben.
18.02.2016 20:22:00
phil
Servus.
Erst mal Danke im Voraus fürs durchlesen sofern eine Antwort kommt.
Und natürlich auch vielen Dank sofern jemand bereit ist mir zu helfen.
Also wir haben eine Checkliste gebaut bei der wir werte eintragen müssen beim Rundgang
Also ich habe ein Rundgangs Protokoll gebaut dass das Datum anzeigt.
Sobald das .xltm geöffnet wird steht in einer Spalte das Aktuelle Datum.
=Heute()
Ist ja auch langweilig bis hier hin.
Aber die Anforderung soll sein, dass in der nächsten Spalte, sagen wir mal bei B2 die Uhrzeit drin steht, wenn das Protokoll fertig ist und gespeichert wird.
Es geht darum das wir täglich die Rundgänge machen müssen und laut meinem Kollegen es sinnvoll wäre, wenn da irgendwo ne Uhrzeit steht, zu welcher Zeit man kontrolliert hat.
Deswegen kommt vermutlich auch die idee dass die Zeit erst beim speichern aktualisiert und gespeichert wird.
Sicher kann man das auch von Hand eintragen, aber automatisiert wäre es zumindest idiotensicher.
Ich hab mich heute schon durch Foren gewühlt aber nichts brauchbares Gefunden.
Versucht ein Macro zu schreiben aber da bin ich einfach nicht gut genug für.
Und dass =Jetzt() nicht im Ansatz funktionieren kann, brauch ich glaube ich nicht sagen.
Wäre sehr dankbar wenn jemand mir da ein Tipp hat
Grüße

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeit beim Speichern in Zelle schreiben.
18.02.2016 20:36:00
Werner
Hallo Phil,
folgenden Code ins Code-Modul von diese Arbeitsmappe - Makro-Editor mit Alt F11 öffnen - Doppelklick auf diese Arbeitsmappe - Code ins Code-Fenster rechts reinkopieren
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Range("A1") = Now() 'Tabellenblatt und Zelle an deine Bedürfnisse anpassen
End Sub
Datum und Zeit wird beim Speichern in Tabelle1 Zelle A1 eingetragen. Wenn du dort nur die Zeit haben willst, dann musst du die Zelle nur entsprechend formatieren.
Gruß Werner

Anzeige
AW: Zeit beim Speichern in Zelle schreiben.
18.02.2016 20:56:53
phil
Vielen Lieben Dank Werner!
Ich werde es morgen mal versuchen.
Ich liebe dieses Internet!
Einen lieben Gruß und nen schönen Abend!
Gruß
Phil

AW: Zeit beim Speichern in Zelle schreiben.
19.02.2016 10:57:37
phil
Servus.
Dein Code funktioniert.
Nur musste ich den Schreibschutz an der Stelle raus nehmen.
Das hatte ich vergessen zu erwähnen dass das Blatt am ende geschützt wird.
Klar kann der Code an der Stelle nichts mehr schreiben.
Wenn du noch weißt wie man das ändern kann, bin ich gerne offen.
Aber ist an der Stelle nicht so tragisch denke ich.
Aber bis hier hin erst mal vielen Lieben Dank!
Grüße
Phil

Anzeige
AW: Zeit beim Speichern in Zelle schreiben.
19.02.2016 12:52:40
Werner
Hallo Phil,
dann so
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Unprotect Password:="Passwortname"
Sheets("Tabelle1").Range("A1") = Now() 'Tabellenblatt und Zelle an deine Bedürfnisse anpassen
Sheets("Tabelle1").Protect Password:="Passwortname"
End Sub
Gruß Werner
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zeitstempel beim Speichern in Excel automatisch einfügen


Schritt-für-Schritt-Anleitung

Um einen Zeitstempel in eine Zelle zu schreiben, wenn die Excel-Datei gespeichert wird, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung, wie du dies umsetzen kannst:

  1. Öffne den VBA-Editor:

    • Drücke Alt + F11, um den VBA-Editor zu öffnen.
  2. Finde das richtige Modul:

    • Doppelklicke auf „Diese Arbeitsmappe“ im Projektfenster auf der linken Seite.
  3. Füge den folgenden Code ein:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
       Sheets("Tabelle1").Range("A1") = Now() 'Tabellenblatt und Zelle an deine Bedürfnisse anpassen
    End Sub
    • Stelle sicher, dass du „Tabelle1“ und „A1“ an das gewünschte Tabellenblatt und die gewünschte Zelle anpasst.
  4. Speichere deine Änderungen:

    • Schließe den VBA-Editor und speichere die Arbeitsmappe im .xlsm-Format (Excel-Makroformat).

Jetzt wird beim Speichern der Datei die aktuelle Uhrzeit automatisch in die angegebene Zelle geschrieben.


Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht, weil das Blatt geschützt ist.

    • Lösung: Füge den Schutz- und Entschutzcode hinzu, wie hier gezeigt:
      Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
      Sheets("Tabelle1").Unprotect Password:="Passwortname"
      Sheets("Tabelle1").Range("A1") = Now()
      Sheets("Tabelle1").Protect Password:="Passwortname"
      End Sub
  • Problem: Die Uhrzeit wird nicht aktualisiert.

    • Lösung: Stelle sicher, dass der Makroschutz in den Excel-Optionen aktiviert ist und die Makros beim Öffnen der Datei aktiviert werden.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du auch folgende Ansätze in Betracht ziehen:

  • Formelansatz: Benutze die Formel =JETZT() in der Zelle, aber beachte, dass diese sich bei jeder Berechnung aktualisiert.
  • Power Automate: Wenn du Office 365 nutzt, kannst du Power Automate verwenden, um automatisierte Flows zu erstellen, die Zeitstempel in Excel einfügen.

Praktische Beispiele

Beispiel 1: Zeitstempel in Zelle A1 eintragen

Sheets("Tabelle1").Range("A1") = Now()

Beispiel 2: Zeitstempel in Zelle B2 eintragen

Sheets("Tabelle1").Range("B2") = Now()

Du kannst die Zellen nach Bedarf anpassen, um die Uhrzeit in der gewünschten Zelle zu speichern.


Tipps für Profis

  • Nutze die Formatierung von Zellen, um sicherzustellen, dass die Uhrzeit im gewünschten Format angezeigt wird.
  • Erwäge, den Zeitstempel in einem anderen Format einzufügen, z. B.:
    Sheets("Tabelle1").Range("A1") = Format(Now(), "hh:mm:ss")
  • Teste deine Makros in einer Kopie deiner Datei, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich den Zeitstempel in einem anderen Format speichern?
Du kannst den Zeitstempel mit der Format-Funktion anpassen, z.B.:

Sheets("Tabelle1").Range("A1") = Format(Now(), "dd.mm.yyyy hh:mm:ss")

2. Funktioniert dies in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten Excel-Versionen ab Excel 2007 funktionieren. Achte darauf, dass die Datei im .xlsm-Format gespeichert ist.

Mit diesen Anleitungen und Tipps kannst du ganz einfach einen automatischen Zeitstempel in Excel implementieren. Nutze die Vorteile von Excel VBA, um effizienter zu arbeiten!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige