Änderungsdatum eines Ordners mit VBA anzeigen
Schritt-für-Schritt-Anleitung
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle „Einfügen“ > „Modul“.
-
Kopiere den folgenden VBA-Code in das Modul:
Public Sub OrdnerAenderungsdatum()
MsgBox FileDateTime(PathName:="C:\Fotos\Urlaub")
End Sub
-
Passe den Pfad an: Ersetze "C:\Fotos\Urlaub" mit dem Pfad deines spezifischen Ordners.
-
Führe das Makro aus: Drücke F5 oder wähle „Ausführen“ > „Sub/UserForm ausführen“ und wähle OrdnerAenderungsdatum.
Jetzt solltest du eine MsgBox sehen, die das Änderungsdatum des angegebenen Ordners anzeigt.
Häufige Fehler und Lösungen
-
Fehler: "Laufzeitfehler 53: Datei nicht gefunden"
Lösung: Überprüfe den angegebenen Pfad auf Tippfehler oder stelle sicher, dass der Ordner tatsächlich existiert.
-
Fehler: "Zugriff verweigert"
Lösung: Stelle sicher, dass du die erforderlichen Berechtigungen hast, um auf den Ordner zuzugreifen.
Alternative Methoden
Falls du kein VBA verwenden möchtest, kannst du auch die Windows-Eigenschaften des Ordners nutzen:
- Rechtsklicke auf den Ordner und wähle „Eigenschaften“.
- Gehe zum Tab „Allgemein“.
- Dort siehst du das „Änderungsdatum“, das dir anzeigt, wann der Ordner zuletzt bearbeitet wurde.
Praktische Beispiele
Ein Beispiel für den VBA-Code, der das Änderungsdatum mehrerer Ordner auf einmal anzeigt:
Public Sub MehrereOrdnerAenderungsdaten()
Dim OrdnerPfad As Variant
OrdnerPfad = Array("C:\Fotos\Urlaub", "C:\Fotos\Familie")
Dim i As Integer
For i = LBound(OrdnerPfad) To UBound(OrdnerPfad)
MsgBox "Änderungsdatum von " & OrdnerPfad(i) & ": " & FileDateTime(PathName:=OrdnerPfad(i))
Next i
End Sub
Tipps für Profis
-
Fehlerbehandlung hinzufügen: Implementiere On Error Resume Next, um die Ausführung des Codes bei Fehlern fortzusetzen und spezifische Fehlermeldungen zu erhalten.
-
Automatisierung: Du kannst den Code so anpassen, dass er automatisch beim Öffnen der Datei ausgeführt wird, um immer die aktuellsten Änderungsdaten zu erhalten.
FAQ: Häufige Fragen
1. Kann ich das Änderungsdatum auch für Dateien anzeigen?
Ja, du kannst FileDateTime auch für spezifische Dateien verwenden, indem du den Pfad zur Datei angibst.
2. Ist dieser Code in allen Excel-Versionen anwendbar?
Ja, der VBA-Code sollte in den meisten Versionen von Excel funktionieren, die VBA unterstützen (Excel 2007 und höher).