Dateinamen aus Ordner einlesen, ändern, und in Ordner zurück
14.01.2026 16:14:32
Manfred
ich habe dieses Programm in Herber.de gefunden, jedoch es will nicht so richtig. Womöglich liegts am Excel 365.
Dateinamen sollen aus einem Ordner ausgelesen werden. Dann ändere ich die Dateinamen.
Nun will ich die alten Dateinemen durch neue Dateinamen umbenennen.
Die Dim Zeilen As Long habe ich Dimensioniert da sonst bei Zeilen= eine Fehlermeldung aufpopt.
Das Makro läuft durch aber Dateinamen werden keine umbenannt.
Sub Dateien_umbenennen()
Dim oldName As String, newName As String
Dim sPfad As String, n As Long, z As Long
Dim Zeilen As Long
Sheets("Tabelle1").Select
sPfad = Range("B1").Value 'Ordner Pfad laden
Zeilen = Cells(Rows.Count, 2).End(xlUp).Row 'Zeilen
If Right(sPfad, 1) > "\" Then sPfad = sPfad & "\"
On Error GoTo Fehler
'Spalte J in neue Datei umbenennen
For z = 3 To Zeilen
newName = Empty: oldName = Empty
oldName = Trim(Cells(z, "B")) 'Spalte "B"
newName = Trim(Cells(z, "J")) 'Spalte "J"
If newName > "" And newName > oldName Then
Name sPfad & oldName As sPfad & newName
n = n + 1
End If
Next z
'Ende mit Anzeige wieviele umbenannt wurden
MsgBox n & " Dateien umbenannt"
Exit Sub
Fehler: MsgBox "Fehler bei: " & oldName & " / " & newName
End Sub
https://www.herber.de/bbs/user/180017.xlsm
Kann das bitte jemand berichtigen ?
Wo liegt der Fehler ?
Mit freundlichen Grüßen
Manfred
Anzeige
