Dateidatum ändern (mit Unterordnern)
Schritt-für-Schritt-Anleitung
Um das Datum einer Datei zu ändern, insbesondere in Unterordnern, kannst du den folgenden VBA-Code verwenden. Dieser Code durchläuft alle Dateien in einem angegebenen Verzeichnis sowie in seinen Unterordnern und ändert das Datum der Dateien.
- Öffne Excel 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 Code in das Modul ein:
Sub DatumÄndern(Dateipfad As String)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Datei As Object
Set Datei = fso.GetFile(Dateipfad)
' Beispiel: Ändere das Erstelldatum auf heute
Datei.DateCreated = Now
Datei.DateLastModified = Now
End Sub
Sub Aendern_SubFolders(oFol As Object)
Dim oSFol As Object, oFil As Object
For Each oSFol In oFol.SubFolders
For Each oFil In oSFol.Files
Call DatumÄndern(oFil.Path)
Next oFil
Call Aendern_SubFolders(oSFol)
Next oSFol
End Sub
Sub Start()
Dim VerzeichnisDatei As String
VerzeichnisDatei = "C:\Dein\Pfad\Hier\" ' ändere den Pfad entsprechend
Call DatumÄndern(VerzeichnisDatei)
End Sub
- Ändere den
VerzeichnisDatei-Pfad auf das Verzeichnis, in dem sich deine Dateien befinden.
- Führe das Makro
Start aus, um die Dateidaten zu ändern.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du die Datei-Daten ohne VBA ändern möchtest, kannst du auch die Eingabeaufforderung in Windows verwenden:
- Öffne die Eingabeaufforderung (
cmd).
- Verwende den Befehl
copy /b dateiname.txt +,,, um das Änderungsdatum zu aktualisieren.
Für das Erstelldatum einer Datei gibt es leider keine einfache Methode über die Benutzeroberfläche, außer die Datei zu kopieren und die Kopie zu verwenden.
Praktische Beispiele
- Erstelldatum einer Datei ändern:
Wenn du das Erstelldatum einer Datei auf ein bestimmtes Datum setzen möchtest, kannst du den Code im
DatumÄndern-Sub entsprechend anpassen:
Datei.DateCreated = #01/01/2023# ' Setze das Erstelldatum auf den 1. Januar 2023
- Datum von Dateien ändern:
Wenn du eine bestimmte Dateiendung z.B.
.txt ansprechen möchtest, kannst du den Code so anpassen, dass nur diese Dateien bearbeitet werden.
Tipps für Profis
- Verwende
Application.ScreenUpdating = False, um das Flackern des Bildschirms während der Ausführung des Makros zu verhindern.
- Erstelle eine Sicherungskopie deiner Dateien, bevor du das Datum änderst, um Datenverlust zu vermeiden.
- Wenn du regelmäßig das Excel Kontoauszug-Format auswerten musst, überlege, ein separates Makro zu erstellen, das diese spezifischen Dateien automatisch verarbeitet.
FAQ: Häufige Fragen
1. Wie kann ich das Datum für alle Dateien in einem bestimmten Ordner ändern?
Du kannst den oben genannten VBA-Code verwenden und den VerzeichnisDatei-Pfad entsprechend anpassen.
2. Kann ich das Datum auch für Dateien ändern, die in Unterordnern liegen?
Ja, der bereitgestellte Code ändert das Datum für alle Dateien in Unterordnern, indem er rekursiv durch die Ordnerstruktur geht.
3. Was ist, wenn ich kein VBA verwenden möchte?
In diesem Fall kannst du versuchen, das Windows Dateidatum über die Eingabeaufforderung zu ändern, aber es gibt keine einfache GUI-Methode, um das Erstelldatum zu ändern.