Anzeige
Archiv - Navigation
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien in einem Ordner umbenennen

Dateien in einem Ordner umbenennen
12.09.2005 17:42:43
Sören
Hallo und Guten Abend.
Kann man mit Excel Dateien eines Ordners umbenennen?
Ich habe einen Ordner mit Dateien (htm und pdf) fürs Internet, aber leider enthalten mache Bezeichnungen ö, ü, ä, und ß. Ist es über einen Makro möglich alle aufzuspüren und umzubennen ö = oe usw. ?
Es wäre mir eine große Hilfe.
Vielen Dank
Sören

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien in einem Ordner umbenennen
12.09.2005 17:56:55
Matthias
Hallo Sören,

Sub Umbenennen(Endung As String) 'z.B. "pdf"
Dim fn As String, fn2 As String
Dim Verz As String
Verz = ThisWorkbook.Path 'Bei Bedarf anpassen
fn = Dir(Verz & "\*" & Endung)
Do While fn <> ""
Debug.Print fn
fn2 = Replace(fn, "ä", "ae")
fn2 = Replace(fn2, "ö", "oe")
fn2 = Replace(fn2, "ü", "ue")
fn2 = Replace(fn2, "Ä", "Ae")
fn2 = Replace(fn2, "Ö", "Oe")
fn2 = Replace(fn2, "Ü", "Ue")
fn2 = Replace(fn2, "ß", "ss")
Name Verz & "\" & fn As Verz & "\" & fn2
fn = Dir()
Loop
End Sub
Sub Test()
Umbenennen "pdf"
Umbenennen "htm"
End Sub

Gruß Matthias
Anzeige
ja danke dein Tipp war super - genial.
12.09.2005 19:31:11
Sören
Hallo Peter, ja danke dein Tipp war super. Genial.
Viele Grüße Sören
AW: Dateien in einem Ordner umbenennen
12.09.2005 19:32:07
Sören
Danke an euch beide - ihr habt mir sehr geholfen.
Viele Grüße Sören

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige