Lori möchte, dass die rechte Seite der Fußzeile ihres Arbeitsblatts das Datum enthält, an dem die Arbeitsmappe zuletzt gespeichert wurde. Jedes Mal, wenn sie versucht, eine Formel dafür zu erstellen, zeigt Excel eine Fehlermeldung an, die besagt, dass die Zeichenfolge zu lang ist und dass einige Zeichen gelöscht werden müssen. Sie ist sich nicht sicher, ob sie versteht, warum dies geschieht oder wie sie das gewünschte Datum in die Fußzeile bekommen kann.

Es gibt keine aktuelle Formel, mit der das zuletzt gespeicherte Datum in eine Fußzeile eingefügt werden kann.

Excel hat (im Gegensatz zu Word) keine Möglichkeit, diese Informationen dort abzulegen.

Es gibt eine Möglichkeit, dies zu tun, aber die Lösung erfordert die Verwendung eines Makros. Der Grund dafür ist, dass Sie auf Systeminformationen zugreifen – Informationen außerhalb von Excel selbst – und diese Informationen nur mit einer Programmiersprache wie VBA abgerufen werden können.

Ein Ansatz besteht darin, Code hinzuzufügen, der ausgeführt wird, wenn eine Arbeitsmappe gespeichert wird.

Der Code aktualisiert die gewünschte Fußzeile mit dem aktuellen Datum:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _   Cancel As Boolean)



ActiveWorksheet.PageSetup.RightFooter = _       "Last Saved: " & Format(Date, "mmmm d, yyyy")

End Sub

Dieses Makro, das im ThisWorkbook-Objekt für die Arbeitsmappe gespeichert werden soll, die Sie beeinflussen möchten, aktualisiert die Fußzeile für das derzeit aktive Arbeitsblatt. Wenn Sie alle Arbeitsblätter in einer Arbeitsmappe beeinflussen möchten, ist eine kleine Änderung am Makro angebracht:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _   Cancel As Boolean)

Dim sht As Worksheet

For Each sht In Sheets         sht.PageSetup.RightFooter = _           "Last Saved: " & Format(Date, "mmmm d, yyyy")

Next End Sub

Wenn heute der 12. Dezember 2011 ist, werden nach dem Ausführen des Makros (das beim Speichern automatisch ausgeführt wird) die richtigen Fußzeilen auf „Zuletzt gespeichert: 12. Dezember 2011“ gesetzt.

Sie können sich auch auf das Dateispeicherdatum verlassen, das in den integrierten Eigenschaften von Excel gespeichert ist. Sie geben dieses Datum folgendermaßen in die Fußzeile ein:

Sub RightFooterLastSaved()

ActiveSheet.PageSetup.RightFooter = _        ActiveWorkbook.BuiltinDocumentProperties(12)

End Sub

Der Nachteil dieses Makros besteht darin, dass Sie daran denken müssen, es regelmäßig auszuführen, sodass es nicht ganz so automatisch ist wie die vorherigen Ansätze. Sie können jedoch die einzelne Zeile im Herzen des Makros in den Workbook_BeforePrint-Ereignishandler einfügen.

Es gibt einen anderen Ansatz, den Sie verwenden können. Hierbei wird von Windows das tatsächliche Datum und die Uhrzeit der Speicherung einer Datei angefordert.

Private Sub Workbook_Open()

Dim sTemp As String     Dim sht As Worksheet

sTemp = FileDateTime(ActiveWorkbook.FullName)

sTemp = "Last Saved: " & sTemp     For Each sht In Sheets         sht.PageSetup.RightFooter = sTemp     Next sht End Sub

Dieses Makro wird ausgeführt, wenn eine Arbeitsmappe zum ersten Mal geöffnet wird. Es wird als Workbook_Open-Prozedur des ThisWorkbook-Objekts gespeichert. Das Arbeitspferd des Makros ist die Zeile, die die FileDateTime-Funktion aufruft.

Mit dieser Funktion können Sie das Datum und die Uhrzeit bestimmen, zu der eine Datei gespeichert wurde. Es erfordert einen vollständigen Pfadnamen einer Datei, der von der FullName-Eigenschaft des ActiveWorkbook-Objekts bereitgestellt wird. Dieses Datum und diese Uhrzeit werden dann in die rechte Fußzeile aller Arbeitsblätter in der Arbeitsmappe eingefügt.

Denken Sie auch daran, dass das Limit, das Sie in jeden Abschnitt der Kopf- oder Fußzeile einfügen können, ungefähr 250 Zeichen beträgt. Wenn Sie also die Makros anpassen, um dem rechten Teil der Fußzeile weitere Informationen hinzuzufügen, stellen Sie sicher, dass nicht so viele Zeichen vorhanden sind. Andernfalls können Probleme mit dem Makro auftreten.

_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 (11099) gilt für Microsoft Excel 2007, 2010 und 2013. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: Letztes gespeichertes Datum in einer Fußzeile.