VBA Änderungsdatum in Excel anzeigen
Schritt-für-Schritt-Anleitung
Um das Änderungsdatum in Excel anzuzeigen, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne deine Excel-Datei.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge den folgenden Code in das Modul ein:
Sub test()
Dim deinedatei As String
deinpfad = ThisWorkbook.Path
deinname = ThisWorkbook.Name
deinedatei = deinpfad & "\" & deinname
Worksheets("Tabelle1").Range("C3").Value = (FileDateTime(deinedatei))
End Sub
-
Um sicherzustellen, dass das Datum automatisch aktualisiert wird, füge den folgenden Code in das DieseArbeitsmappe-Modul ein:
Private Sub Workbook_Open()
test
End Sub
-
Speichere die Datei als Makro-fähige Arbeitsmappe (xlsm).
Jetzt wird beim Öffnen der Datei das Änderungsdatum in Zelle C3 von "Tabelle1" angezeigt.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du das Änderungsdatum für jedes Arbeitsblatt anzeigen möchtest, kannst du den folgenden VBA-Code für jedes Arbeitsblatt verwenden:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("A1").Value = CDate(Now())
End Sub
Dieser Code aktualisiert die Zelle A1 jedes Mal, wenn eine Änderung auf dem Arbeitsblatt vorgenommen wird.
Praktische Beispiele
-
Beispiel 1: Zeige das Änderungsdatum in Zelle C3 von "Tabelle1" an.
Nach dem Einfügen des Codes wird das Datum automatisch aktualisiert, wenn die Datei geöffnet wird.
-
Beispiel 2: Speichere das Änderungsdatum in Zelle A1 jedes Mal, wenn Änderungen auf einem Arbeitsblatt vorgenommen werden.
Tipps für Profis
- Nutze benutzerdefinierte Formate in Excel, um das Datum in einem für dich passenden Format anzuzeigen.
- Achte darauf, dass du regelmäßig Backups deiner Excel-Dateien machst, um Datenverlust zu vermeiden.
- Teste deine Makros in einer Testdatei, bevor du sie in einer wichtigen Datei verwendest.
FAQ: Häufige Fragen
1. Wie kann ich das Änderungsdatum in einer anderen Zelle anzeigen?
Du kannst die Zellreferenz in deinem VBA-Code ändern, z.B. Worksheets("Tabelle1").Range("D5").Value, um das Datum in Zelle D5 anzuzeigen.
2. Funktioniert dieser Code in Excel 365?
Ja, der Code funktioniert in Excel 365 sowie in älteren Versionen von Excel, solange Makros aktiviert sind.