Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: graf_louis am April 19, 2019, 10:53:44 Vormittag

Titel: Office 2016 Dateien mit Hilfe eines Makros umbenennen
Beitrag von: graf_louis am April 19, 2019, 10:53:44 Vormittag

Hallo zusammen,
ich bitte um eure Hilfe:

Ich möchte gerne unter folgenden Laufwerk Dateien umbenennen

C:\Users\NAME\Desktop\Neuer Ordner

Die Dateien sind mit IMG-20190315-WA0015.jpg benannt, sprich beginnen immer mit IMG- ...

Wie kann ich das IMG- löschen? Es handelt sich um ca. 5000 Dateien.

Die Dateibezeichnung soll also nur noch 20190315-WA0015.jpg lauten

HERZLICHEN DANK IM VORAUS

graf_louis  8)

Titel: Antw:Office 2016 Dateien mit Hilfe eines Makros umbenennen
Beitrag von: RPP63 am April 20, 2019, 11:17:10 Vormittag

Moin!
Teste mal:

Code: [Auswählen]

Sub Umbenennen()
Dim Ordner$, DatName$
Ordner = Environ("Userprofile") & "\Desktop\neuer Ordner\"
ChDir Ordner
DatName = Dir(Ordner & "img-*")
Do While DatName <> ""
  Name DatName As Replace(DatName, "IMG-", "")
  DatName = Dir()
Loop
End Sub
Gruß Ralf

Titel: Antw:Office 2016 Dateien mit Hilfe eines Makros umbenennen
Beitrag von: graf_louis am April 22, 2019, 10:50:53 Vormittag

Ein ganz großes DANKESCHÖN !!!  ;) ;) ;)

Das klappt ja super...

Grüße David

PS: Gibt es auch eine Möglichkeit die nun umbenannten Bilddateien per Makro in Ordner automatisiert abzulegen?

Z.B. n Stk. Bilddateien die nun 20190228-WA0001, 20190228-WA0002, ... heißen in den Ordner 20190228_BILDER abzulegen?
Das gleiche müsste natürlich auch für 20190301-WA0001, usw. geschehen. Dann jedoch in den Ordner 20190301_BILDER...

Freue mich auf Ihre Rückmeldung.