Wie benennt man mehrere Dateien in einem Ordner mithilfe von Excel um?
Vielleicht leiden die meisten von uns unter dem Problem, dass wir mehrere Dateien in einem Ordner umbenennen müssen. Wenn Hunderte oder Tausende Dateien in diesem Ordner enthalten sind, macht es uns wahnsinnig, die Dateinamen einzeln umzubenennen. Gibt es gute Funktionen, mit denen wir diese Aufgabe bewältigen können?
Schritt 1: Alle Dateinamen aus einem bestimmten Ordner mit Kutools für Excel in einem Arbeitsblatt auflisten
Schritt 2: Mehrere Dateien eines Ordners in Excel mithilfe von VBA-Code umbenennen
Alle Dateinamen aus einem bestimmten Ordner mit Kutools für Excel in einem Arbeitsblatt auflisten
Wenn Sie mehrere Dateien umbenennen möchten, tragen Sie zunächst die alten Dateinamen in eine Spalte des Arbeitsblatts ein und geben dann die neuen Dateinamen an, durch die sie ersetzt werden sollen. Um schnell alle Dateien im Arbeitsblatt aufzulisten, verwenden Sie einfach das Kutools für Excel’s Dateinamenliste-Tool.
Nach der Installation von Kutools für Excelgehen Sie bitte wie folgt vor:()Kostenlos herunterladen Kutools für Excel Jetzt)
1. Klicken Sie auf KUTOOLS PLUS > Import & Export > Dateinamenliste, siehe Screenshot:
2. Klicken Sie im Dateinamenliste-Dialogfeld auf die Schaltfläche 
, um den Dateiordner auszuwählen, dessen Dateien Sie auflisten möchten, und wählen Sie anschließend unter Dateitypdie Option Alle Dateienaus. Siehe Screenshot:
3. Klicken Sie anschließend auf die Schaltfläche OK. Alle Dateinamen wurden in einer Spalte eines neuen Arbeitsblatts aufgelistet – ebenso einige Dateiattribute. Nun können Sie unerwünschte Spalten löschen und behalten nur die Spalte Dateiname bei, siehe Screenshot:
Klicken Sie hier, um mehr über diese Dateinamenliste-Funktion zu erfahren…
Kostenlos herunterladen Kutools für Excel Jetzt
Mehrere Dateien eines Ordners in Excel mithilfe von VBA-Code umbenennen
Nachdem Sie alle ursprünglichen Dateinamen in Spalte A aufgelistet haben, geben Sie die neuen Dateinamen wie im folgenden Screenshot gezeigt in Spalte B ein:
Im Folgenden stelle ich Ihnen einen VBA-Code vor, mit dem Sie alte Dateinamen sofort durch neue ersetzen können. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.
VBA-Code: Mehrere Dateien in einem Ordner umbenennen
Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
3. Nachdem Sie den Code eingefügt haben, drücken Sie bitte die Taste F5, um diesen Code auszuführen. Wählen Sie im Fenster Durchsuchen den Ordner aus, dessen Dateinamen Sie ändern möchten. Siehe Screenshot:
4. Klicken Sie anschließend auf OK. Alle alten Dateinamen werden sofort durch die neuen ersetzt. Siehe Screenshots:
 |  |  |
Hinweise:
1. Wenn Sie Ihre alten und generierten Dateinamen auflisten, muss die Dateierweiterung enthalten sein.
2. Im obigen Code gibt der Bezug A:A die Liste der alten Dateinamen an, die Sie umbenennen möchten, und der Bezug B enthält die neuen Dateinamen, die Sie verwenden möchten. Passen Sie diese ganz einfach Ihren Anforderungen an.
Demo: Mehrere Dateien eines Ordners in Excel umbenennen
Verwandte Artikel:
Wie erstellt man Sequenzarbeitsblätter aus einem Zellbereich in Excel?
Wie benennt man mehrere Arbeitsblätter in Excel gleichzeitig um?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins