Dateidatum ändern

Forumthread: Dateidatum ändern

Dateidatum ändern

18.04.2017 17:42:19

Peter

Hallo zusammen
ich habe den nachfolgenden Code gefunden
Das ändern des Aenderungsdatum funktionierte 1x das Erstelldatum und das Datum des letzten Zugriffs konnte ich mit diesem Code nicht ändern - auch keine Fehlermeldung
kann mir diesen Code jemand anpassen oder einen anderen geben - meine VBA-Kenntniss reichen leider nicht, diesen Code zu verstehen.
Vielen Dank Pepi
hier meine Beispieldatei
https://www.herber.de/bbs/user/112955.xlsm

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateidatum ändern

18.04.2017 21:43:06

Dieter
AW: Dateidatum ändern

19.04.2017 09:04:28

Peter

AW: Dateidatum ändern

18.04.2017 21:43:06

Dieter

Hallo Pepi,
ich lade dir eine Arbeitsmappe hoch, mit der du die drei Werte verändern kannst.
Du startest das Programm durch Klick auf die Schaltfläche "Start" im Blatt "Start". Du erhältst dann eine UserForm, in die du deine Eingaben machen kannst.
https://www.herber.de/bbs/user/112959.xlsm
Viele Güße
Dieter

AW: Dateidatum ändern

19.04.2017 09:04:28

Peter

Hallo Dieter
supper - das ist genau, das was ich wollte - sogar mit einer UserForm - herzlichen Dank
lg Pepi

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne Excel und lade deine Datei:
- Stelle sicher, dass die Datei, deren Datum du ändern möchtest, geöffnet ist.
VBA-Editor öffnen:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul einfügen:
- Klicke im Menü auf Einfügen und wähle Modul.

VBA-Code eingeben:

Kopiere den folgenden VBA-Code in das Modul:

Sub DateidatumAendern()
   Dim fso As Object
   Dim datei As Object
   Dim pfad As String

   pfad = ThisWorkbook.FullName ' Aktuellen Pfad der Datei verwenden
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set datei = fso.GetFile(pfad)

   ' Erstellungsdatum ändern
   datei.DateCreated = "01-01-2023 12:00:00"
   ' Letztes Zugriffsdatum ändern
   datei.DateLastAccessed = "01-01-2023 12:00:00"
   ' Änderungsdatum ändern
   datei.DateLastModified = "01-01-2023 12:00:00"
End Sub

Makro ausführen:
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Drücke ALT + F8, wähle DateidatumAendern und klicke auf Ausführen.
Überprüfen der Änderungen:
- Überprüfe, ob das Erstellungsdatum, Änderungsdatum und Zugriffsdatum der Datei aktualisiert wurden.

Häufige Fehler und Lösungen

Fehler: "Zugriff verweigert"
- Lösung: Stelle sicher, dass du die nötigen Berechtigungen hast, um auf die Datei zuzugreifen und Änderungen vorzunehmen.
Fehler: "Das Makro kann nicht ausgeführt werden"
- Lösung: Überprüfe die Makrosicherheitseinstellungen unter Datei > Optionen > Trust Center.
Das Änderungsdatum wird nicht aktualisiert.
- Lösung: Stelle sicher, dass der richtige Dateipfad und die richtigen Datumsformate verwendet werden.

Alternative Methoden

Windows Datei-Datum ändern:
- Mit einem Rechtsklick auf die Datei und der Auswahl von Eigenschaften kannst du unter dem Tab Details die Erstellungs- und Änderungsdaten sehen. Hier kannst du jedoch keine Änderungen vornehmen.
Drittanbieter-Software:
- Es gibt spezielle Tools, die dir erlauben, das Datum von Dateien problemlos zu ändern, wie z.B. "BulkFileChanger".

Praktische Beispiele

Änderung des Erstellungsdatums:
- Ändere das Erstellungsdatum einer Excel-Datei auf den 1. Januar 2023:
```
datei.DateCreated = "01-01-2023 12:00:00"
```

Änderung des Änderungsdatums:

Setze das Änderungsdatum einer PDF-Datei:

Dim pdfDatei As String
pdfDatei = "C:\Pfad\zur\deiner\datei.pdf"
Set datei = fso.GetFile(pdfDatei)
datei.DateLastModified = "01-01-2023 12:00:00"

Tipps für Profis

Automatisierung:
- Du kannst das Datum regelmäßig automatisch über ein geplantes Makro ändern, das beim Öffnen der Datei ausgeführt wird.
Sicherungskopien:
- Bevor du mit dem Ändern von Dateidaten beginnst, erstelle immer eine Sicherungskopie der Datei, um Datenverlust zu vermeiden.
Testen:
- Teste den VBA-Code zuerst an einer Kopie der Datei, um sicherzustellen, dass alles wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich das Erstellungsdatum einer Excel-Datei ändern? Um das Erstellungsdatum zu ändern, verwende den VBA-Code im Abschnitt "Schritt-für-Schritt-Anleitung" und passe das Datum entsprechend an.

2. Funktioniert das auch für PDF-Dateien? Ja, du kannst ähnliche Methoden verwenden, um das Änderungsdatum von PDF-Dateien zu ändern, jedoch benötigst du möglicherweise zusätzliche Bibliotheken, um auf PDF-Dateien zuzugreifen.

3. Ist es möglich, das Änderungsdatum von Dateien in Windows zu ändern? Ja, du kannst das Änderungsdatum über den Windows Explorer anzeigen, aber nicht direkt ändern. Dafür benötigst du eine Software oder ein Skript, das dies ermöglicht.

Beliebteste Forumthreads (12 Monate)