Erstellungsdatum per VBA in Excel einfügen
Schritt-für-Schritt-Anleitung
Um das Erstellungsdatum oder das letzte Änderungsdatum einer Excel-Datei per VBA in die letzte leere Zelle einer bestimmten Tabelle einzufügen, folge diesen Schritten:
-
Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Füge den folgenden VBA-Code ein:
Private Sub Workbook_Open()
If IsEmpty(Sheets("test").Range("A13")) Then
Sheets("test").Range("A13").Value = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End If
End Sub
-
Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (*.xlsm).
-
Schließe und öffne die Arbeitsmappe erneut, um den Code auszuführen.
Häufige Fehler und Lösungen
Alternative Methoden
Anstatt VBA zu verwenden, kannst du auch das Erstellungsdatum manuell abrufen:
- Klicke in Excel auf
Datei und dann auf Informationen.
- Unter
Eigenschaften findest du das Erstellungsdatum (oder "Creation Date" auf Englisch).
Diese Methode ist jedoch weniger automatisiert als die Verwendung von VBA.
Praktische Beispiele
Hier sind einige Beispiele, wie du den VBA-Code anpassen kannst:
-
Um das letzte Änderungsdatum in die Zelle A14 einzufügen:
If IsEmpty(Sheets("test").Range("A14")) Then
Sheets("test").Range("A14").Value = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End If
-
Um das Erstellungsdatum in die erste leere Zelle in Spalte A zu speichern:
Dim LastRow As Long
LastRow = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("test").Cells(LastRow, 1).Value = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
Tipps für Profis
-
Nutze Variablen, um den Code übersichtlicher zu gestalten. Zum Beispiel:
Dim CreationDate As Variant
CreationDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
Sheets("test").Range("A13").Value = CreationDate
-
Verwende Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert werden.
FAQ: Häufige Fragen
1. Wie kann ich das Datum in einem anderen Format anzeigen?
Du kannst das Datum formatieren, indem du die NumberFormat-Eigenschaft verwendest:
Sheets("test").Range("A13").NumberFormat = "DD.MM.YYYY"
2. Funktioniert dieser VBA-Code in allen Excel-Versionen?
Ja, dieser Code sollte in den meisten Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und neuer.