Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien umbenennen

Forumthread: Dateien umbenennen

Dateien umbenennen
13.11.2002 09:26:19
jhaustein
hallo gemeinschaft,

habe folgendes problem
ich möchte gerne jpg. dateien umbenennen
habe schon gehört, dass es mit excel dateien gehen soll - geht das dann auch mit jedem anderen format.

bsp.:
im ordner c:/test liegt die datei bild.jpg - das bild soll jetzt in den ordner c:/test/klein mit der bezeichnung bild-klein.jpg

wie müsste der code aussehen, da in dem ordner test 180 dateien liegen

könnt ihr mir villeicht helfen
:-) jörg

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateien umbenennen
13.11.2002 10:01:44
jhaustein
hallo hans

bloss wie fange ich den dateinamen ab, so dass ich den namen entsprechend ändern kann

Re: Dateien umbenennen
13.11.2002 10:14:08
Hans W. Herber
... in meinem Beispiel sind die Dateinamen in zwei Zellen hinterlegt. Wenn Du also den Bezug auf die Zellen durch die Dateinamen ersetzt, hast Du das Makro angepaßt.

hans

Anzeige
Re: Dateien umbenennen
13.11.2002 10:18:35
jhaustein
könntest du mir dabei helfen, wie ich dann nacheinander die dateien aus dem ordner anpacken kann und den dateinamen dort eilesen kann - wäre echt super

:-) jörg

Re: Dateien umbenennen
13.11.2002 10:39:12
Coach
Hallo jhaustein,

mit folgendem Makro kannst Du Dateien umbenennen und verschieben.
Bitte ggf. die konkreten Daten entsprechend ersetzen:

Sub MoveRenameFile()
Dim Datei$, Verzeichnis$, Maske$, ZielVerzeichnis$
Dim fs, f
Dim p As Long
Verzeichnis$ = "c:\test\"
ZielVerzeichnis$ = "C:\Test\Klein\"
Maske$ = "*.jpg"
Set fs = CreateObject("Scripting.FileSystemObject")
Datei = Dir(Verzeichnis$ & Maske$, vbNormal + vbReadOnly + vbHidden)
Do While Datei$ <> vbNullString
Set f = fs.GetFile(Verzeichnis$ & Datei$)
p = InStr(f.Name, ".")
f.Name = Left(f.Name, p - 1) & "-Klein" & Mid(f.Name, p)
f.Move ZielVerzeichnis
Datei$ = Dir()
Loop
End Sub

Gruß Coach

Anzeige
Re: Dateien umbenennen
13.11.2002 10:55:11
Hans W. Herber
... für den Fall, das aus Sicherheitsgründen WSH nicht installiert ist:

hans

Re: Dateien umbenennen
13.11.2002 11:14:04
Coach
Hallo Hans,

da fehlt dann nur noch die gewünschte Umbenennung, z.B.

... worksheetfunction.substitute(arrFiles(iCounter),".","-Klein.")

Gruß Coach

Re: Dateien umbenennen
13.11.2002 11:15:32
Hans W. Herber
... ein büschen was zum Denken wollte ich ihm noch überlassen ;-)
Du hast recht.

hans

Anzeige
vielen dank meine herren
13.11.2002 11:24:03
jhaustein
es löppt - wie verrückt

:-) jörg

;

Forumthreads zu verwandten Themen

Vba Markro für mehrere Dateien ermöglichen | Herbers Excel-Forum
BENNY
Hallo,
habe ein riesen Problem: Ich soll für meinen Arbeitgeber folgenden VBA Code umbauen. Momentan kann man mit Hilfe dieses Codes eine .fdf Datei einlesen und sie wir in Excel in Zeile 1 (Überschrift) und 2 (Werte) ausgelesen.
Mein Chef möchte nun, dass man mehrere Dateien einlesen kann...
13.01.2010 14:52:54
Thread-ID: 1129510
5 Beiträge
Kopieren&umbenennen von Dateien mit VBA
Dateien

Moin,
verflixt, ich habe hier einen super Tip bekommen, wie ich vernünftig Dateien (mit einem T am Ende) unter VBA kopieren kann.
Dim sr As Scripting.FileSystemObject v0 = "c:\prog\testfiles" TNetzCopy "\\pc1\i1\*T ", v0, "1" und dann weiter mit der SUB Private Sub TNetzCopy(QuellPC As...
02.09.2013 08:49:00
Thread-ID: 1329147
2 Beiträge
Anzeige
vba aus mehreren Dateien Range zusammenfügen
Dani

Hallo zusammen,
ich bin leider kein vba-Profi und bitte euch um eure Hilfe.
Für mein Praktikum muss ich ein Makro programmieren.
Per Button soll aus beliebig vielen Excel Files die sich in einem bestimmten Ordner befinden der gleiche Range ausgelesen werden und in einer neuen Datei...
30.09.2013 16:03:28
Thread-ID: 1332678
3 Beiträge
Anzeige
vba Ein pdf-Dokument aus mehreren worddateien
Livio

Hallo
Ich möchte von einer Exceldatei aus durch einen klick auf einen Button, im Explorer im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\1. Installation Protocols" und im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\2. Comissioning Protocols" dass alle 100-150 Worddateien...
15.12.2014 14:44:29
Thread-ID: 1398119
2 Beiträge
Anzeige
VBA Excel: mehrere .txt Dateien importieren in eig
Micheal

Guten morgen,
kurz zu mir: ich bin eher Anfänger bzgl. VBA Programmierung und arbeite viel mit dem Makrorekorder und google-suchen. Hat bisher auch gut geklappt, allerdings brauche in nun etwas spezielles was ich nicht finde.
Folgendes: ich habe mehrer Textdateien die ich in excel über...
17.12.2016 11:47:30
Thread-ID: 1530609
5 Beiträge
Anzeige
vba öfnen mehrerer dateien mit "*" im Name
carsten

Hallo,
ich beschäftige mich erst seit wenigen Tagen mit vba und habe nun, nach ersten Erfolgen ;-), ein kleines Problem:
Wie im folgenden Code zu sehen ist, möchte ich .xls Dateien öffnen und bearbeiten.
Ausgangspunkt ist ein Ordner mit z.B 60 Dateien die in Gruppen geöffnet werden...
30.06.2017 11:08:42
Thread-ID: 1566727
4 Beiträge
VBA Hilfe | Liste aus mehreren Dateien
Felix

Hallo zusammen,
ich stehe vor einem Problem, welches ich alleine aufgrund meiner nicht wirklich vorhandenen VBA Kenntnisse nicht bewätligen kann.
Vieleicht kann mir ja irgendwer dabei weiterhelfen oder mir einen Tipp geben.
Folgendes Problem:
Ich habe einen Ordner mit mehreren...
02.09.2017 12:55:17
Thread-ID: 1578172
4 Beiträge
INDEX MATCH in VBA über mehrere Dateien
Steffen

Hallo,
ich habe dieses Tabellenblatt: https://www.herber.de/bbs/user/119497.jpg
Unter Broker sind natürlich Namen verborgen, bei Last Update handelt es sich um Daten, bei dem Rest um Zahlen. Ich möchte in die jeweiligen Zellen untereinander die Ergebnisse aus verschiedenen Dateien einpf...
05.02.2018 12:01:06
Thread-ID: 1606979
7 Beiträge
VBA Bestimmte Zellen aus mehreren Dateien zusammen
Smiddie

Huhu ich habe folgendes Problem:
Ich möchte gerne Mehrere Dateien in eine Excel Datei kopieren. leider funktioniert mein code _
nicht. Sub Übertragen() Dim Datei As Variant Dim Quelle, Ziel As String Dim bExists, MappeOffen As Boolean Dim i As Integer Dim lZeile As Long Dim Rückgabe '...
28.02.2019 18:13:32
Thread-ID: 1678550
2 Beiträge
VBA Projekt in mehreren dateien
klaas

Hi,
ich habe ein recht großes VBA Projekt, dass auch gelegentlich erweitert bzw. angepasst wird, wie ich's eben brauche. (Ich bin der einzige, der das nutzt)
Mit dieser Datei arbeite ich derzeit an 6 verschiedenen Projekten, mehr oder weniger gleichzeitig. Dafür habe ich mir mehrere Kop...
11.03.2019 10:34:55
Thread-ID: 1680567
2 Beiträge
Mehrere Dateien umbenennen
Chris

Halli Hallo,
ich soll unsere Mitarbeiterdatenbank neu anlegen und die vorhandenen Namen umbenennen. Das Problem: Es sind fast 1000 stück. Diese Dateien liegen auf unserer Festplatte D: und es sind alles Textdateien - also .txt -
Der Pfad ist folgender: D:\Datenbank\Pmustermann.txt
I...
08.05.2004 00:33:22
Thread-ID: 426008
2 Beiträge
vba dateien suchen, umbenennen und verschieben
franz
Moin ...
Freitag und ein Problem:
Kann man über Makro folgendes steuern:
Suche mir in dem Verzeichnis c:\2004 folgende Dateien:
(Für den Stern (*) können noch verschiedene Buchstaben und Zahlen folgen
oder vorausgehen)).
1.) Bestandsprotokoll_*.xls
2.) BRNR_PTK.txt
3....
04.06.2004 09:05:20
Thread-ID: 437245
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Dateien umbenennen mit Excel VBA

Schritt-für-Schritt-Anleitung

Um Dateien mit Excel VBA umzubenennen, folge diesen Schritten:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.

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

  3. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projekt-Explorer und wähle Einfügen > Modul.

  4. Kopiere den folgenden VBA-Code in das Modul:

    Sub MoveRenameFile()
   Dim Datei As String, Verzeichnis As String, ZielVerzeichnis As String
   Dim fs As Object, f As Object
   Dim p As Long

   Verzeichnis = "C:\Test\"
   ZielVerzeichnis = "C:\Test\Klein\"
   Datei = Dir(Verzeichnis & "*.jpg")

   Set fs = CreateObject("Scripting.FileSystemObject")

   Do While Datei <> vbNullString
       Set f = fs.GetFile(Verzeichnis & Datei)
       p = InStr(f.Name, ".")
       f.Name = Left(f.Name, p - 1) & "-Klein" & Mid(f.Name, p)
       f.Move ZielVerzeichnis
       Datei = Dir()
   Loop
End Sub

  5. Passe die Variablen Verzeichnis und ZielVerzeichnis an, um deinen spezifischen Ordnerpfad zu reflektieren.

  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Führe das Makro aus:

    • Drücke ALT + F8, wähle MoveRenameFile und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehlermeldung: "Datei nicht gefunden"

    • Überprüfe, ob der Pfad im Verzeichnis korrekt ist und die Dateien tatsächlich vorhanden sind.

  • Makro funktioniert nicht

    • Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.

  • Dateinamen werden nicht umbenannt

    • Vergewissere dich, dass der Dateityp .jpg korrekt angegeben ist. Ändere die Maske in der Dir-Funktion, wenn du andere Dateitypen umbenennen möchtest.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch folgende Methoden in Betracht ziehen:

  • Batch-Datei: Erstelle eine Batch-Datei, um mehrere Dateien auf einmal umzubenennen.
  • PowerShell: Nutze PowerShell-Skripte, um Dateien in einem Ordner basierend auf bestimmten Kriterien umzubenennen.

Praktische Beispiele

Hier sind einige Beispiele, wie du die oben genannte Methode anpassen kannst:

  1. Dateien nach Excel-Liste umbenennen:

    • Wenn du eine Liste von neuen Dateinamen in Excel hast, kannst du die Liste in dein Makro integrieren, um die Dateien entsprechend umzubenennen.

  2. Mehrere Dateitypen umbenennen:

    • Ändere die Maske in der Dir-Funktion, um z.B. *.png oder *.txt Dateien umzubenennen.

Tipps für Profis

  • Fehlerbehandlung: Füge eine Fehlerbehandlung in dein Makro ein, um unerwartete Probleme automatisch zu lösen.

    On Error Resume Next

  • Logging: Erstelle ein Protokoll, das festhält, welche Dateien umbenannt wurden, um später nachzuvollziehen, was passiert ist.

  • Testen: Teste dein Makro immer zuerst mit einer kleinen Anzahl von Dateien, bevor du es auf alle Dateien anwendest.

FAQ: Häufige Fragen

1. Kann ich auch andere Dateiformate umbenennen? Ja, du kannst das Makro anpassen, um verschiedene Dateitypen wie .png oder .txt zu bearbeiten, indem du die Maske in der Dir-Funktion entsprechend änderst.

2. Funktioniert dieses Makro in Excel 365? Ja, das Makro funktioniert in Excel 365 sowie in früheren Versionen, solange Macros aktiviert sind.

3. Wie kann ich das Makro so ändern, dass es die Dateinamen aus einer Excel-Liste übernimmt? Du kannst die Excel-Zellen auslesen und den Namen im Makro dynamisch anpassen, um die Umbenennung basierend auf der Liste durchzuführen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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