Einen entsprechenden Code habe ich hier im Forum schon gefunden, leider funktioniert dieser nicht richtig. Ich habe die original Dateinamen in Spalte A, Zeile 1-11 geladen und in Spalte B Zeile 1-11 die neuen Namen geschrieben. Leider werden nur die Dateien von Zeile 1-10 umbenannt, Zeile 11 enthaelt nur das das Dateityp Kuerzel. Hier mal der Code:
Sub RenameFiles()
Dim i As Integer
Dim DateiNameAlt As String, DateiNameNeu As String, Verzeichnis As String
Dim fs As Object, f As Object
On Error Resume Next
Verzeichnis = "C:\Documents and Settings\andreas.poller\Desktop\2.t Inspection Records (ITR's) ( _
_
by WBS and Series)\"
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To 1000
DateiNameAlt = Cells(i, 1)
DateiNameNeu = Cells(i, 2) & ".pdf"
Set f = fs.GetFile(Verzeichnis & DateiNameAlt)
f.Name = DateiNameNeu
Next i
End Sub
und hier das Resultat:
31.pdf 31
32.pdf 32
33.pdf 33
34.pdf 34
35.pdf 35
36.pdf 36
37.pdf 37
38.pdf 38
39.pdf 39
40.pdf 40
.pdf 41
Ich habe eine englische Excel version, das sollte aber nicht das Problem sein.
Vielen Dank fuer Euer Feedback