Speicherdatum in der Kopfzeile anzeigen
Schritt-für-Schritt-Anleitung
Um das Speicherdatum in der Kopfzeile einer Excel-Datei anzuzeigen, kannst du folgendes Vorgehen nutzen:
-
VBA-Editor öffnen: Drücke Alt + F11, um den VBA-Editor zu öffnen.
-
Neues Modul erstellen: Klicke im Projekt-Explorer mit der rechten Maustaste auf dein Projekt und wähle „Einfügen“ > „Modul“.
-
Code einfügen: Kopiere den folgenden Code in das Modul:
Function SpeicherDatum() As Date
SpeicherDatum = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
-
Makro für die Kopfzeile: Um das Datum in der Kopfzeile anzuzeigen, füge diesen Code in „DieseArbeitsmappe“ ein:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
With wks.PageSetup
.LeftHeader = "Stand: " & Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mmmm yyyy")
End With
Next wks
Application.ScreenUpdating = True
End Sub
-
Speichern und testen: Schließe den VBA-Editor und speichere deine Datei als Makro-aktivierte Arbeitsmappe (*.xlsm). Teste die Funktion, indem du die Datei druckst oder in die Seitenansicht gehst – das Speicherdatum sollte jetzt in der Kopfzeile erscheinen.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du das Datum nicht in der Kopfzeile, sondern in der Fußzeile anzeigen möchtest, kannst du den folgenden VBA-Code verwenden:
Sub Fußzeile_Datum()
Dim wks As Worksheet
For Each wks In Worksheets
With wks.PageSetup
.LeftFooter = "Letzte Änderung: " & Format(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"), "dd.mmmm yyyy")
End With
Next wks
End Sub
Dieser Code fügt das Datum der letzten Änderung in die Fußzeile ein.
Praktische Beispiele
Hier sind einige Beispiele, wie du das Speicherdatum in der Kopfzeile oder Fußzeile anpassen kannst:
-
Aktuelles Datum in der Kopfzeile:
.LeftHeader = "Aktuelles Datum: " & Format(Date, "dd.mmmm yyyy")
-
Druckdatum in der Fußzeile:
.CenterFooter = "Gedruckt am: " & Format(Date, "dd.mmmm yyyy")
Diese Anpassungen ermöglichen es dir, verschiedene Datumsangaben je nach Bedarf anzuzeigen.
Tipps für Profis
- Automatisierung: Du kannst den Code so anpassen, dass weitere Informationen wie der Benutzername oder der Dateipfad in die Kopf- oder Fußzeile eingefügt werden.
- Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen im VBA-Code, um unerwartete Fehler abzufangen.
- Formatierung: Nutze die Format-Funktion, um das Datum in verschiedenen Formaten anzuzeigen, z.B. „dd.mm.yyyy“ oder „mmmm dd, yyyy“, je nach deinen Anforderungen.
FAQ: Häufige Fragen
1. Wie kann ich das Datum automatisch aktualisieren, ohne das Makro manuell auszuführen?
Das Datum wird automatisch aktualisiert, wenn du die Datei druckst oder die Seitenansicht aufrufst, da der Code in der Workbook_BeforePrint-Ereignisprozedur eingefügt wird.
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die Makros unterstützen (z.B. Excel 2010 und später).
3. Kann ich den Code anpassen, um andere Informationen anzuzeigen?
Ja, du kannst den Code anpassen, um zusätzliche Informationen wie den Benutzernamen oder den Dateipfad in der Kopf- oder Fußzeile anzuzeigen.