Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Dateien in einem Ordner umbenennen

Alle Dateien in einem Ordner umbenennen
04.09.2014 10:54:55
dip
Guten Tag Allerseits,
Gerne würde ich folgende Problemstellung in das Forum einbringen.
Ich habe einen Ordner mit einer Vielzahl von Dateien, alles .xlsm.
Jede Datei hat einen individuellen Namen.
Nun würde ich gerne alle Dateien in diesem Ordner nach folgender Syntax automatisch umbenennen lassen:
"aktueller Dateiname" - "fixer Wert" (zB. Plan) - "aktuelles Datum" (04.09.2014) - "fortlaufende Nummer" (1,2,3...)
Wäre dies möglich umzusetzen?
Bin für jede Hilfe dankbar!
Beste Grüsse
Patrick

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien in einem Ordner umbenennen
04.09.2014 11:11:45
Rudi
Hallo,
Sub umbenennen()
Dim sDatei As String, sPfad As String, iZaehler As Integer
Const FixerWert As String = "Plan"
sPfad = "c:\test\"
sDatei = Dir(sPfad & "*.xlsm")
Do While sDatei  ""
iZaehler = iZaehler + 1
Name sPfad & sDatei As sPfad & _
Join(Array(Left(sDatei, Len(sDatei) - 5), _
FixerWert, _
Format(Date, "yyyymmdd"), _
Format(iZaehler, "000")), "-") & ".xlsx"
sDatei = Dir
Loop
End Sub

Gruß
Rudi

Anzeige
AW: Alle Dateien in einem Ordner umbenennen
04.09.2014 11:46:00
dip
Hallo Rudi,
Danke für deine Antwort!
Leider funktioniert es bei mir nicht ganz.
Beim Ausführen des Makros wird die Datei geöffnet und dann ist das Makro zu ende.
Die Dateinamen haben sich nicht verändert.
Ist es richtig, dass die Datei geöffnet werden muss um die Datei umzubenennen?
Grüsse
Patrick

Anzeige
AW: Alle Dateien in einem Ordner umbenennen
04.09.2014 12:31:07
Rudi
Hallo,
nein, die Dateien müssen nicht geöffnet werden.
Ist aber ein Fehler drin, werden in xlsx umbenannt:
Sub umbenennen()
Dim sDatei As String, sPfad As String, iZaehler As Integer
Const FixerWert As String = "Plan"
sPfad = "c:\test\"
sDatei = Dir(sPfad & "*.xlsm")
Do While sDatei  ""
iZaehler = iZaehler + 1
Name sPfad & sDatei As sPfad & _
Join(Array(Left(sDatei, Len(sDatei) - 5), _
FixerWert, _
Format(Date, "yyyymmdd"), _
Format(iZaehler, "000")), "-") & ".xlsm"
sDatei = Dir
Loop
End Sub
Gruß
Rudi

Anzeige
AW: Alle Dateien in einem Ordner umbenennen
04.09.2014 13:37:13
dip
Hallo Rudi,
Funktioniert wie gewünscht!
Vielen herzlichen Dank Rudi, hast mir wirklich weitergeholfen :-)
Wünsche Dir noch einen schönen Tag!
Grüsse
Patrick
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Alle Dateien in einem Ordner umbenennen


Schritt-für-Schritt-Anleitung

Um alle Dateien in einem Ordner umbenennen zu können, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

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

  3. Kopiere den folgenden Code in das Modul:

    Sub umbenennen()
       Dim sDatei As String, sPfad As String, iZaehler As Integer
       Const FixerWert As String = "Plan"
       sPfad = "c:\test\" ' Hier den Pfad zum Ordner anpassen
       sDatei = Dir(sPfad & "*.xlsm")
       Do While sDatei <> ""
           iZaehler = iZaehler + 1
           Name sPfad & sDatei As sPfad & _
           Join(Array(Left(sDatei, Len(sDatei) - 5), _
           FixerWert, _
           Format(Date, "yyyymmdd"), _
           Format(iZaehler, "000")), "-") & ".xlsm"
           sDatei = Dir
       Loop
    End Sub
  4. Ändere den Pfad in der Zeile sPfad = "c:\test\" auf den Ordner, der die Dateien enthält, die Du umbenennen möchtest.

  5. Führe das Makro aus: Gehe zurück zu Excel, drücke ALT + F8, wähle das Makro umbenennen aus und klicke auf Ausführen.

Dieses Makro wird alle .xlsm-Dateien im angegebenen Ordner umbenennen, indem es den aktuellen Dateinamen, einen fixen Wert, das aktuelle Datum und eine fortlaufende Nummer kombiniert.


Häufige Fehler und Lösungen

  • Dateien öffnen sich beim Ausführen des Makros:

    • Lösung: Dateien müssen nicht geöffnet werden. Stelle sicher, dass der Code korrekt ist und die Dateiendung .xlsm richtig angegeben ist.
  • Dateien werden nicht umbenannt:

    • Lösung: Überprüfe den angegebenen Ordnerpfad und stelle sicher, dass die Dateien im richtigen Format vorliegen.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch Windows-Bordmittel oder Drittanbieter-Software nutzen, um mehrere Dateien gleichzeitig umzubenennen. Es gibt Tools, die es ermöglichen, Dateien fortlaufend oder nach einem bestimmten Muster umzubenennen, ohne VBA zu verwenden.


Praktische Beispiele

  1. Bilder fortlaufend umbenennen: Wenn Du eine Sammlung von Bildern hast, kannst Du ähnliche VBA-Skripte verwenden, um die Bilder nach Datum oder anderen Merkmalen zu benennen.

    Sub BilderUmbenennen()
       ' Ähnlicher Ansatz wie beim Umbenennen von Excel-Dateien
    End Sub
  2. Dateien nach Excel-Liste umbenennen: Du kannst eine Excel-Liste verwenden, um Dateinamen festzulegen und dann ein VBA-Makro, um die Dateien entsprechend den Namen in der Liste umzubenennen.


Tipps für Profis

  • Backup der Dateien: Mache immer eine Sicherungskopie der Dateien, bevor Du sie umbenennst, um Datenverlust zu vermeiden.
  • Regelmäßige Nutzung des Makros: Speichere das Makro in einer persönlichen Arbeitsmappe, um es jederzeit nutzen zu können.
  • Anpassbarkeit: Du kannst das VBA-Skript leicht anpassen, um andere Dateitypen oder Namensmuster zu verwenden.

FAQ: Häufige Fragen

1. Kann ich das Makro für andere Dateiformate verwenden?
Ja, Du kannst die Dateiendung im Code anpassen, um andere Formate wie .txt oder .jpg zu umbenennen.

2. Ist VBA in allen Excel-Versionen verfügbar?
Ja, VBA ist in den meisten Versionen von Excel verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Office 365.

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