richardsongaragedoor.online
In Excel können wir die Arbeitsmappeninformationen wie Dateiname, Dateipfad, aktuelles Datum usw. schnell und einfach in die Kopf- oder Fußzeile einfügen. Aber haben Sie jemals versucht, das Datum und die Uhrzeit des letzten geänderten Arbeitsblatts in das Arbeitsblatt einzufügen? Excel bietet diese Funktion nicht, damit wir das Datum der letzten Änderung in die Kopf- oder Fußzeile einfügen können. Hier stelle ich Ihnen eine praktische Möglichkeit zur Lösung vor. Fügen Sie das Datum der letzten Änderung in die Excel-Kopf- oder Fußzeile mit VBA-Code ein Fügen Sie mit Kutools for Excel das letzte Änderungsdatum / Erstellungsdatum / Userto-Kopf- / Fußzeile ein Der folgende einfache VBA-Code kann Ihnen helfen, das zuletzt gespeicherte Datum und die Uhrzeit des Arbeitsblatts in die Kopf- oder Fußzeile einzufügen. Gehen Sie dazu folgendermaßen vor: 1. Aktivieren Sie Ihr Arbeitsblatt, in das Sie das Datum der letzten Änderung in die Kopf- oder Fußzeile einfügen möchten. Excel - Speicherdatum einfügen? Geht das?. 2. Dann halten Sie die ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
Allerdings kann ich deiner Ausführung nicht so ganz folgen, da ich nicht ganz so viel Ahnung von VBA habe. So schaut dann die Programmierung aus: Public Function Speicheruser() As String erName Speicheruser = Format ( FileDateTime(ThisWorkbook. FullName), "") Das rote muss ich dann wie deklarieren? Nochmals Danke! ungetestet: [COLOR=#0000CD]Public Function Speicherdatum() as String Speicherdatum = Format(FileDateTime(ThisWorkbook. Letztes Speicherdatum Abfragen / Einfügen - MS-Office-Forum. FullName), "")[B] & ername[/B] End Function[/COLOR] Nochmals Hallo! :) Super, das funktioniert. Ich habe es ein wenig verfeinert und dann schaut das so aus: Public Function Speicherdatum() As String Speicherdatum = Format(FileDateTime(ThisWorkbook. FullName), " ") & ("von ") & ername Allerdings würde ich gerne den Namen in eine eigene Zelle anzeigen lassen. Was müsste ich da verändern? So schnelle Antworten habe ich nicht dafür! wie rufst du die Funktion auf? Hallöle, ich gebe in einer Zelle (egal welche) dann =Speicherdatum() ein und danach (also ENTER drücken) wird mir das Speicherdatum und der Name angezeigt: 18.
Damit erreichen Sie, dass Excel beim Schließen der Datei nur zum Speichern auffordert, wenn tatsächlich Änderungen an den Tabellendaten vorgenommen wurden. Ansonsten würde die Speicheraufforderung nach jeder Ausführung der "BeforePrint"-Prozedur erscheinen, was bei einer Bestätigung des Speichervorgangs dazu führen könnte, dass Speicherdatum und Aktualität der Tabellendaten nichts miteinander zu tun haben. Mit der If-Abfrage prüfen Sie danach, ob die Datei überhaupt schon gespeichert worden ist. Das ist nur dann der Fall, wenn die "Path"-Eigenschaft einen Wert besitzt. Unter diesen Voraussetzungen können Sie das Speicherdatum über die eingebaute Dokumenteigenschaft (BuiltinDocumentProperty) "Last save time" ermitteln. Die Kopf- und Fußzeile Die Kopf- oder Fußzeile ändern Sie schließlich mit einer Eigenschaft des "PageSetup"-Objekts. Letztes Speicherdatum in Excel 2016 anzeigen lassen | ComputerBase Forum. Hier ist es der linke Kopfzeilenbereich: "LeftHeader". Alternativ können Sie die anderen Bereiche mit Inhalten füllen: CenterHeader = mittlerer Abschnitt der Kopfzeile RightHeader = rechter Abschnitt der Kopfzeile LeftFooter = linker Abschnitt der Fußzeile CenterFooter = mittlerer Abschnitt der Fußzeile RightFooter = rechter Abschnitt der Fußzeile Wenn Sie mit Excel 97 arbeiten, müssen Sie eine zusätzliche Ereignisprozedur einfügen.
Wenn ich nicht drin war, sondern nur in einem anderen Tabellenblatt war und speichern gedrückt habe, wird das Speicherdatum nicht eingefügt. Egal ob Range("NameDesTabellenblatts! B1") = Speicherdatum oder Sheets("NameDesTabellenblatts")("B1") = Speicherdatum #26 Es ist sogar noch verzwickter. Wenn ich die Datei öffne, ändere und speichere verändert sich der Wert nur um ein paar Sekunden abweichend vom vorherigen Speicherdatum. Erst wenn ich ein zweites Mal speichere, wird ein annährend korrekter Wert eingetragen. Das ist mir jetzt erst aufgefallen, weil ich während des experimentierens nie eine längere Zeit nicht gespeichert habe. Erst jetzt habe ich mal mehere Minuten nichts gemacht. Da zeigte sich auf einmal der Effekt. Irgendwie kommt es mir so vor, als wäre FileDateTime nicht das korrekte Speicherdatum, sondern irgendein anderes Datum. Ich kapier hier gar nix mehr. #27 Tjo, aber auch mit Speicherdatum = ActiveWorkbook. Excel speicherdatum einfügen. BuiltinDocumentProperties(12) ist es das selbe Problem. #28 Merkwürdig.
BuiltinDocumentProperties("Last save Time") End Sub das müsste es sein gruß andreas e eine Linksammlung zu diversen fachforen Geschrieben am: 23. 2004 12:26:33 Danke, aber ich kann kein VBA. Was mach ich mit diesem Skript? Wo einfügen? Ich möchte das Datum gerne in eine Zelle und nicht als Messagebox. Gruß Johannes von: Uduuh Geschrieben am: 23. 2004 12:59:14 Hallo, das geht mit einer benutzerdefinierten Funktion. In ein Modul: Function savedate() savedate = ActiveWorkbook. BuiltinDocumentProperties(12) End Function In die Zelle dann einfach =savedate() eintragen. Gruß aus'm Pott Udo Betrifft: Funktioniert nicht von: Johannes Geschrieben am: 24. 2004 11:24:47 Hallo, habe es so gemacht wie Du beschrieben hast. Es steht nun das Datum in der Zelle. Aber ich habe heute das Dokument abgespeichert und es steht imemr noch das Datum von gestern drin. Auch nach schließen und erneut öffnen steht immer noch das Datum von gestern drin. Betrifft: AW: Funktioniert nicht von: Annett Geschrieben am: 26.