Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum darf sich nach dem speichern nicht ändern

Datum darf sich nach dem speichern nicht ändern
03.12.2004 18:58:53
Michael
Hallo,
ich habe folgendes Problem. Ich habe mir eine Vorlage erstellt in der immer das aktuelle Datum eingefügt wird. Wenn ich jetzt meine Daten speichere (nicht als Vorlage sondern als .xls) und dieses noch mal aufrufe z.B. am anderen Tag, ändert sich das Datum wieder. Dieses sollte aber so bleiben wie es abgespeichert wurde.
Danke euch schon mal im voraus für eure Hilfe.
MfG
Michael
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
=Peter=
Versuchs mal so: Klicke mit der rechten Maustaste auf den Tabellenreiter und wähle aus dem Kontextmenü den Befehl Code anzeigen. Dann erfasst du folgendes Ereignismakro:
Private Sub Worksheet_Change _ 'Autor: Bernd Held (ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Target.Offset(0, 1).Value = Date End Sub
HTH
Gruss
Peter
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
Michael
@ Peter
Geht so leider nicht.
AW: Datum darf sich nach dem speichern nicht änder
=Peter=
Hallo Michael,
klar. Versuchs mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Offset(0, 1).Value = Date
End Sub

In A1 die Formel =Heute(). In A2 wird das Datum festgeschrieben.
Gruss
Peter
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
Michael
Hallo Peter,
stimmt geht doch! Wenn ich jetzt aus der 1 in der Klammer eine 0 macher bleibt das in der Zelle oder verstehe ich das falsch?
AW: Datum darf sich nach dem speichern nicht änder
Uduuh
Hallo,
wie wird das Datum eingefügt?
Gruß aus'm Pott
Udo
AW: Datum darf sich nach dem speichern nicht änder
Michael
Wird mit =HEUTE() eingefügt.
Anzeige
AW: Datum darf sich nach dem speichern nicht ändern
freund

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Offset(0, 1).Value = VBA.DateTime.Date
End Sub

AW: Datum darf sich nach dem speichern nicht ändern
Michael
Hallo Freund,
danke für die hilfe das ist die selbe Lösung wie die von Peter wenn ich das richtig sehe. Ich habe damit das Problem das ich die Zell die ich auslese auch überschreiben kann. Zumindest habe ich es nicht hinbekommen.
MfG
Michael
Anzeige
AW: Datum darf sich nach dem speichern nicht ändern
Hübi
Hi Michael,
ich habe von VBA noch nicht so viel Ahnung, glaube aber dass du das meinst.
Der Code ist zwar noch nicht fertig, soll aber den Profis als Hinweis dienen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' hier müsste ein VBA-Profi den Code um die Abfrage ergänzen, ob eine *.xlt gespeichert wird
' Wenn *.xlt , dann Exit
Dim Datum As Date
Datum = Range("A1").Value 'In A1 steht die Fkt HEUTE(), die durch deren Wert beim Speichern als *.xls ersetzt werden soll
Range("A1") = Datum
End Sub

Frage auf noch offen.
Gruß Hübi
Anzeige
@ Hübi!
04.12.2004 00:19:20
Josef
Hallo Hübi!
Dein Vorschlag währe gut, aber geht leider nicht, weil
wie der Name des Ereignisses schon sagt,
das ganze vor dem speichern passiert und noch nicht
feststeht ob aus der Datei eine "*.xls" oder "*.xlt" wird!
Gruß Sepp
AW: @ Sepp
Hübi
Hi Sepp,
wenn ich mir das jetzt so überlege, hast du natürlich Recht.
Aber wie kann man dann verhindern, dass beim Speichern als *.xlt das Überschreiben der HEUTE() nicht erfolgt, sondern nur bei *xls.
Wie ich die anderen Beispiele interpretiere, wird beim Speichern das akt. Datum in der *.xls eingetragen - das soll aber gerade verhindert werden.
Gruß Hübi
Anzeige
AW: @ Sepp
04.12.2004 00:46:27
Josef
Hallo Hübi!
Deshalb mein Vorschlag, das ganze in das "Open" Ereignis
der Mappe zu packen.
Nur wenn die Zelle leer ist, weil aus der Vorlage erstellt,
wird das Datum eingetragen.
Gruß Sepp
AW: @ Sepp
Hübi
Hi Sepp,
ich habe deinen Code gerade gelesen und der ist mir auch einleuchtend.
Du bist halt der Profi.
Habe wieder etwas gelernt - danke.
Gruß Hübi
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
04.12.2004 00:14:38
Josef
Hallo Michael!
Warum nicht einfach in das Modul "DieseArbeitsmappe" diesen Code?

Private Sub Workbook_Open()
If Sheets("Tabelle1").[A1] = "" Then Sheets("Tabelle1").[A1] = Format(Date)
'Tabellenname und Zelladresse anpassen
End Sub

Den Inhalt der zelle mit dem datum löschen und deine "xlt" speichern.
Dann wird beim öffnen das Datum eingetragen wenn die Zelle noch leer ist.
Gruß Sepp
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
Michael
Hallo Sepp,
leider funktioniert ein vorschlag garnicht. Kann auch sein das ich was falsch gemacht habe nur wüsste ich nicht was.
MfG
Michael
AW: Datum darf sich nach dem speichern nicht änder
04.12.2004 00:35:04
Josef
Hallo Michael!
Beschreib mal was du gemacht hast!
Gruß Sepp
AW: Datum darf sich nach dem speichern nicht änder
Michael
das ganze auf einem neuen blatt getestet. also deinen code kopiert, neue mappe erstellt, tabellen reiter1 rechtsklick, code einfügen, speichern das ganze als .xlt. dann schließen und neu aufrufen.
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
04.12.2004 00:42:18
Josef
Hallo Michael!
Dann steht der Code an der falschen Stelle!
Ich sagte in "DieseArbeitsmappe"
(Rechtsklick auf das Excel-Symbol ganz links in der Datei-Menüleiste)
Gruß Sepp
AW: Datum darf sich nach dem speichern nicht änder
Michael
Hallo Sepp,
sorry aber irgendwie bin ich wohl zu blöd oder es ist schon zu spät aber ich bekomme das nicht hin.
MfG
Michael
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
04.12.2004 00:59:36
Josef
Hallo Michael!
Also nochmal Schritt für Schritt.
1.) Nimm eine neue, leere Arbeitsmappe.
2.) Drücke Alt+F11 und klicke im VBA-Editor doppelt auf "DieseArbeitsmappe".
3.) Füge diesen Code in das rechte Fenster ein.

Private Sub Workbook_Open()
If Sheets("Tabelle1").[A1] = "" Then Sheets("Tabelle1").[A1] = Format(Date)
'Tabellenname und Zelladresse anpassen
End Sub

4.) Wechsle zurück zu Excel und speichere die Datei als Vorlage mit dem Namen "Test.xlt"
5.) Schliesse die Datei.
6.) Gehe auf "Datei" &gt "Neu" &gt und wähle "Test.xlt".
7.) In Zelle "A1" steht das aktuelle Datum. Speichere die Datei als Test.xls".
8.) Datei schliessen.
9.) Ändere das Datum auf deinem System.
10.) Öffne "Test.xls". In "A1" steht immer noch das Datum von Heute.
11.) Systemdatum wieder zurückstellen!
Gruß Sepp
Anzeige
AW: Datum darf sich nach dem speichern nicht änder
Hübi
Hi Michael,
hier ist ein Bild
Userbild
Du öffnest deine *.xlt als *.xlt und fügst wie auf dem Bild dargestellt, den Code von Sepp ein. Danach speicherst du die Datei wieder als *.xlt.
Wichtig: die Zelle mit der HEUTE() (im Bsp. A1) muss leer sein - also löschen.
Hoffentlich kommst du jetzt klar.
Gruß Hübi
Anzeige
Es geht!!! Danke an alle die geholfen haben!!
Michael
Hallo Hübi,
auch dir Danke das du dich mit meinem Problem beschäftigt hast.
MfG
Michael
AW: Datum darf sich nach dem speichern nicht änder
Michael
Juhu ich habs!!!!
Danke Sepp und allen anderen die mir versucht haben zu helfen.
MfG
Michael
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datum in Excel fixieren: So bleibt das Datum beim Speichern unverändert


Schritt-für-Schritt-Anleitung

  1. Neue Arbeitsmappe erstellen: Öffne Excel und erstelle eine neue, leere Arbeitsmappe.

  2. VBA-Editor öffnen: Drücke Alt + F11, um den VBA-Editor zu öffnen.

  3. Modul "DieseArbeitsmappe" auswählen: Doppelklicke auf "DieseArbeitsmappe" im Projektfenster.

  4. Code einfügen: Füge den folgenden Code in das rechte Fenster ein:

    Private Sub Workbook_Open()
       If Sheets("Tabelle1").[A1] = "" Then
           Sheets("Tabelle1").[A1] = Format(Date)
       End If
    End Sub
  5. Arbeitsmappe speichern: Speichere die Datei als Vorlage mit der Endung .xlt.

  6. Vorlage verwenden: Schließe die Datei und öffne sie erneut über "Datei" > "Neu" > "Test.xlt".

  7. Datum speichern: In Zelle "A1" sollte jetzt das aktuelle Datum stehen. Speichere die Datei nun als .xls.

  8. Überprüfen: Schließe die Datei und ändere das Datum auf deinem System. Öffne die gespeicherte .xls-Datei - das Datum in Zelle "A1" sollte unverändert bleiben.


Häufige Fehler und Lösungen

  • Fehler: Datum ändert sich beim Speichern.

    • Lösung: Stelle sicher, dass der Code im Modul "DieseArbeitsmappe" korrekt eingefügt wurde und dass du die Datei als .xlt speicherst, bevor du sie als .xls öffnest.
  • Fehler: Zelle A1 bleibt leer.

    • Lösung: Überprüfe, ob du den richtigen Tabellenblattnamen verwendet hast und ob der Code im richtigen Modul eingefügt wurde.

Alternative Methoden

  1. Datumswert manuell eingeben: Anstatt die =HEUTE()-Funktion zu verwenden, kannst du das Datum manuell in die Zelle eingeben. Dies verhindert, dass das Datum bei jedem Öffnen der Datei aktualisiert wird.
  2. Excel-Daten ohne VBA: Du kannst das Datum auch manuell in eine Zelle einfügen, indem du Strg + ; drückst, um das aktuelle Datum einzufügen, ohne dass es sich ändert.

Praktische Beispiele

  • Beispiel 1: Verwende die Methode zur Fixierung des Datums in einem Bericht, der wöchentlich erstellt wird. Das Datum kann in Zelle A1 eingefügt werden und bleibt unverändert, wenn der Bericht gespeichert wird.
  • Beispiel 2: Bei der Erstellung von Protokollen kann das aktuelle Datum automatisch in das Dokument eingefügt und beim Speichern fixiert werden, um Verwirrung über das Erstellungsdatum zu vermeiden.

Tipps für Profis

  • VBA-Optimierung: Du kannst den VBA-Code anpassen, um zusätzliche Bedingungen hinzuzufügen, beispielsweise nur dann das Datum zu ändern, wenn bestimmte Zellen leer sind.
  • Testen: Teste deine Makros in einer Kopie der Arbeitsmappe, um sicherzustellen, dass alles wie gewünscht funktioniert, bevor du die Originaldatei verwendest.

FAQ: Häufige Fragen

1. Wie kann ich das Datum in Excel einfügen, ohne dass es sich aktualisiert? Um das Datum in Excel einzufügen, ohne dass es sich aktualisiert, kannst du das Datum manuell eingeben oder die oben beschriebenen VBA-Methoden verwenden.

2. Funktioniert das auch in Excel Online? Die beschriebenen VBA-Methoden sind nur in der Desktop-Version von Excel verfügbar. In Excel Online kannst du das Datum nur manuell eingeben.

3. Was passiert, wenn ich die Vorlage als .xlt speichere? Beim Speichern als .xlt wird die Vorlage zur Grundlage für neue Arbeitsmappen. Das Datum wird beim Öffnen der Datei in die Zelle eingefügt, solange sie leer ist.

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