Es kann vorkommen, dass Ihre Kopf- oder Fußzeile das Datum enthalten soll, an dem Ihre Arbeitsmappe zuletzt gespeichert wurde. Normalerweise sind dies keine Informationen, die Sie in Excel festlegen können. Sie können jedoch das folgende Makro verwenden, um die Informationen an die richtige Stelle zu zwingen:

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

In diesem Makro sind einige Elemente zu beachten. Zunächst wird versucht, das letzte Datum (und die letzte Uhrzeit) zu ermitteln, an dem die Arbeitsmappe gespeichert wurde. Wenn diese Informationen nicht ermittelt werden können, wird das Erstellungsdatum extrahiert. Wenn dies nicht gefunden werden kann, wird die Fußzeile auf „Nicht gespeichert“ gesetzt.

Beachten Sie, dass in diesem Makro eine Fehlerbehandlung durchgeführt wurde. Der Grund dafür ist, dass Excel einen Fehler zurückgibt, wenn eine bestimmte Dokumenteigenschaft (in diesem Fall BuiltinDocumentProperty) nicht festgelegt ist. Der Fehler muss abgefangen und behandelt werden, was hier gemacht wird.

Sie sollten beachten, dass dieses Makro nach dem Ausführen die linke Fußzeile auf die gewünschten Informationen setzt. Diese Informationen werden erst wieder geändert, wenn Sie das Makro erneut ausführen. Wenn Sie also immer ein aktuelles Datum in der Fußzeile haben möchten, sollten Sie das Makro entweder regelmäßig (möglicherweise direkt vor dem Drucken) ausführen oder so einrichten, dass es beim Öffnen Ihres Dokuments ausgeführt wird.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2055) gilt für Microsoft Excel 97, 2000, 2002 und 2003.