Bilder aus Ordner kopieren

Forumthread: Bilder aus Ordner kopieren

14.04.2014 13:55:11

Stefan

Hallo, ich habe einen Ordner mit irsinnig vielen Bildern und eine Excel Datei, wo in Spalte A die Namen der Bilder stehen, die tatsächlich benötigt werden.
Gibt es eine Möglichkeit, über Excel automatisch und gezielt diese benötigten Dateien in einen separaten Ordner zu koperen?
Danke dun liebe Grüße
Stefan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bilder aus Ordner kopieren

14.04.2014 14:12:58

Rudi
AW: Bilder aus Ordner kopieren

14.04.2014 14:23:56

Stefan

AW: Bilder aus Ordner kopieren

14.04.2014 14:12:58

Rudi

Hallo,
Pfade anpassen.
Namen der Bilder ab A2. Ohne Pfad, mit Endung.

Sub aaa()
Dim rngC As Range
Const cstrPfad1 As String = "c:\Bilder\"
Const cstrPfad2 As String = "c:\Bilder\relevant\"
If Dir(cstrPfad2, vbDirectory) = "" Then
MkDir cstrPfad2
End If
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
Name cstrPfad1 & rngC As cstrPfad2 & rngC
Next
End Sub

Gruß
Rudi

AW: Bilder aus Ordner kopieren

14.04.2014 14:23:56

Stefan

Perfekt! Vielen Dank!

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Bilder aus einem Ordner automatisch in einen separaten Ordner zu kopieren, kannst du ein einfaches VBA-Skript in Excel verwenden. Befolge diese Schritte:

Öffne Excel und lade die Datei, in der die Namen der Bilder in Spalte A ab der Zeile 2 stehen.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

Füge den folgenden Code in das Modul ein:

Sub BilderKopieren()
   Dim rngC As Range
   Const cstrPfad1 As String = "c:\Bilder\"
   Const cstrPfad2 As String = "c:\Bilder\relevant\"

   If Dir(cstrPfad2, vbDirectory) = "" Then
       MkDir cstrPfad2
   End If

   For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
       Name cstrPfad1 & rngC.Value As cstrPfad2 & rngC.Value
   Next
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle BilderKopieren aus der Liste und klicke auf Ausführen.

Das Skript kopiert nun alle Bilder mit den entsprechenden Namen in den angegebenen Zielordner.

Häufige Fehler und Lösungen

Fehler: „Datei nicht gefunden“
- Lösung: Stelle sicher, dass die Namen der Bilder in der Excel-Datei exakt mit den Namen im Ordner übereinstimmen, einschließlich der Dateiendungen.
Fehler: „Zielordner kann nicht erstellt werden“
- Lösung: Überprüfe, ob der Pfad für den Zielordner korrekt ist und ob du die notwendigen Berechtigungen hast, um dort Ordner zu erstellen.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch manuell die Bilder kopieren oder ein Batch-Skript außerhalb von Excel verwenden. Dies erfordert jedoch mehr Zeit und ist weniger automatisiert.

Praktische Beispiele

Nehmen wir an, du hast folgende Bildnamen in Spalte A:

bild1.jpg
bild2.jpg
bild3.jpg

Wenn die Bilder im Ordner C:\Bilder\ gespeichert sind, wird das Skript sie in den Ordner C:\Bilder\relevant\ kopieren, vorausgesetzt, die Namen stimmen überein.

Tipps für Profis

Erweiterung des Skripts: Du kannst das Skript so anpassen, dass es auch Unterordner durchsucht oder nur bestimmte Dateitypen kopiert.
Fehlerprotokollierung: Füge eine Fehlerbehandlung hinzu, um festzuhalten, welche Dateien nicht kopiert werden konnten.

FAQ: Häufige Fragen

1. Was mache ich, wenn ich mehrere Dateiformate habe?
Du kannst den Code anpassen, um nur bestimmte Dateitypen zu kopieren, indem du eine Bedingung für die Dateiendung hinzufügst.

2. Funktioniert das in Excel 2016?
Ja, das Skript ist mit Excel 2016 und neueren Versionen kompatibel. Stelle sicher, dass Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)