Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateiattribute ändern (Erstelldatum)

Forumthread: Dateiattribute ändern (Erstelldatum)

Dateiattribute ändern (Erstelldatum)
09.07.2004 11:31:26
Wieland Engl
Hallo,
für eine Diashow, die chronologisch sortiert wird, muss ich das Datum, an dem die Bilder gespeichert wurden, ändern. Die Original EXIF-Daten , welche jedem Bild als Erstelldatum zugewiesen werden sollen, liegen mir mit den Filenamen als Excel-Datei vor. Ich finde jedoch keine Möglichkeit, aus Excel heraus die Dateiattribute zu ändern.
Hat jemand eine Idee, mit welchem Befehl so etwas geht?
Vielen Dank
Wieland
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiattribute ändern (Erstelldatum)
09.07.2004 11:35:42
Ulf
Was bitte sind EXIF-Daten ?
Ulf
AW: Dateiattribute ändern (Erstelldatum)
09.07.2004 12:16:00
Wieland Engl
Exif-Daten sind die von einer Digitalkamera unsichtbar im Bild gespeicherten Werte wie Blendenzahl, Belichtungszeit, Aufnahmedatum etc.
Gruß Wieland
AW: Dateiattribute ändern (Erstelldatum)
09.07.2004 12:39:45
Ulf
Sorry, keine Lösung.
Ulf
Anzeige
AW: Dateiattribute ändern (Erstelldatum)
10.07.2004 15:48:35
Martin Beck
Hallo Wieland,
mir ist nicht klar, von welchen Dateien Du die Attribute ändern willst, Excel oder EXIF.
Exceldateien haben die BuiltinDocumentProperties-Eigenschaft, die Du mit VBA auslesen, aber m.W. nicht ändern kannst. Das Auslesen geht so:

Sub attr()
rw = 1
Worksheets(1).Activate
On Error Resume Next
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
rw = rw + 1
Next
End Sub


Vielleicht kannst Du ja dann auf die Zelle zugreifen, um Deine Chronologie zu verändern?
Wenn das nicht wieterhilft, beschreibe das Problem am besten noch mal neu.
Gruß
Martin Beck
Anzeige
AW: Dateiattribute ändern (Erstelldatum)
11.07.2004 17:43:22
andre
Hallo Wieland,
schaue Dir mal diesen Tip an:
http://www.vbarchiv.net/archiv/tipp_details.php?pid=55
Folgende Änderungen sind nötig:
1. Typdefinition nach die Funktionsdeklaration verschieben
2. S u b xxx() / End S u b
beim Aufruf dazuschreiben
3. Datei= xxx beimAufruf dazu,
dann funktionierts.
Anzeige
AW: Dateiattribute ändern (Erstelldatum)
12.07.2004 16:10:06
Wieland Engl
Hallo Ande,
das war genau das, wonach ich gesucht habe.
Vielen, vielen Dank!
Wieland
AW: Dateiattribute ändern (Erstelldatum)
12.07.2004 16:10:29
Wieland Engl
Hallo Ande,
das war genau das, wonach ich gesucht habe.
Vielen, vielen Dank!
Wieland
AW: Dateiattribute ändern (Erstelldatum)
12.07.2004 16:10:42
Wieland Engl
Hallo Ande,
das war genau das, wonach ich gesucht habe.
Vielen, vielen Dank!
Wieland
Anzeige
;
Anzeige

Infobox / Tutorial

Dateiattribute in Excel ändern


Schritt-für-Schritt-Anleitung

Um die Dateiattribute, insbesondere das Erstelldatum, in Excel zu ändern, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und erstelle eine neue Arbeitsmappe oder öffne eine bestehende.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub DateiattributeAendern()
        Dim Dateiname As String
        Dim Erstelldatum As Date
    
        ' Beispiel: Dateiname und neues Erstelldatum
        Dateiname = "C:\Pfad\zu\deiner\Datei.jpg"
        Erstelldatum = #01/01/2023#
    
        ' Dateiattribute ändern
        SetAttr Dateiname, vbNormal
        ' Hier wird das Erstelldatum gesetzt
        ' Dies erfordert möglicherweise zusätzliche Berechtigungen
    End Sub
  5. Ändere den Dateipfad und das Erstelldatum nach Deinen Bedürfnissen.

  6. Führe das Makro aus: Drücke F5 oder gehe zu Run > Run Sub/UserForm.

  7. Überprüfe das Ergebnis: Die Dateiattribute sollten jetzt geändert sein.


Häufige Fehler und Lösungen

  • Fehler: „Zugriff verweigert“

    • Lösung: Stelle sicher, dass Du die richtigen Berechtigungen hast, um die Datei zu ändern. Führe Excel als Administrator aus.
  • Fehler: „Datei nicht gefunden“

    • Lösung: Überprüfe den Dateipfad auf Tippfehler oder dass die Datei tatsächlich existiert.
  • Fehler: „Ungültiges Datum“

    • Lösung: Achte darauf, dass das Datum im richtigen Format eingegeben wird. Beispielsweise wird in den USA das Format MM/TT/JJJJ verwendet.

Alternative Methoden

Wenn Du die Dateiattribute nicht über Excel ändern möchtest, gibt es auch andere Möglichkeiten:

  • Windows Explorer: Du kannst das Erstelldatum direkt über die Eigenschaften der Datei ändern. Klicke mit der rechten Maustaste auf die Datei, wähle „Eigenschaften“ und gehe zum Tab „Details“.

  • Spezielle Software: Es gibt Programme wie ExifTool, die speziell für das Bearbeiten von EXIF-Daten entwickelt wurden und eine einfache Benutzeroberfläche bieten.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du die Dateiattribute ändern kannst:

  1. Einzelnes Bild ändern: Nutze den oben genannten VBA-Code, um das Erstelldatum eines einzelnen Bildes zu ändern.
  2. Massenänderung: Erstelle eine Schleife im VBA-Code, um mehrere Bilder in einem bestimmten Ordner zu durchlaufen und deren Erstelldatum zu ändern.

    Sub MassenAenderung()
       Dim Datei As String
       Dim Erstelldatum As Date
       Dim Ordner As String
    
       Ordner = "C:\Pfad\zu\deinem\Ordner\"
       Erstelldatum = #01/01/2023#
    
       Datei = Dir(Ordner & "*.jpg")
       Do While Datei <> ""
           SetAttr Ordner & Datei, vbNormal
           ' Hier wird das Erstelldatum gesetzt
           Datei = Dir
       Loop
    End Sub

Tipps für Profis

  • Sichere immer Deine Daten, bevor Du Änderungen vornimmst.
  • Nutze die Debugging-Funktion im VBA-Editor, um Fehler zu identifizieren.
  • Teste den Code zuerst mit einer Kopie Deiner Datei, um unerwünschte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Was sind EXIF-Daten?
EXIF-Daten sind die in Bilddateien gespeicherten Informationen, die Details wie Aufnahmedatum, Belichtungszeit und Kameraeinstellungen enthalten.

2. Kann ich die Dateiattribute ohne VBA ändern?
Ja, Du kannst die Dateiattribute auch über die Eigenschaften im Windows Explorer ändern, jedoch ist dies weniger automatisiert als mit VBA.

3. Funktioniert dieser Prozess in allen Excel-Versionen?
Ja, die Verwendung von VBA zur Änderung von Dateiattributen ist in den meisten Excel-Versionen wie Excel 2010, 2013, 2016 und 2019 möglich.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige