Office: (Office 2010) Dateien umbenennen mit Excel + VBA

Hallo,

ich möchte mittels Daten aus Excel Dateien umbenennen.

Beispiel:

Dateien D:\xxx\PICT0101.jpg
D:\xxx\PICT0102.jpg etc.

Exceldatei D:\xxx\test-rename.xlsm
strOldName strNewName
PICT0101 PICT0201
PICT0102 PICT0202

VBA:
Sub umbenennen()
Dim intRowCount As Integer, intRow As Integer
Dim strOldName As String, strNewName As String
intRowCount = Cells(Rows.Count, 1).End(xlUp).Row
For intRow = 1 To intRowCount
strOldName = ThisWorkbook.Path & "\" & Cells(intRow, 1).Value
strNewName = ThisWorkbook.Path & "\" & Cells(intRow, 2).Value
Name strOldName As strNewName
Next intRow
End Sub

Ich erhalte aber immer eine Fehlermeldung 53, Datei nicht gefunden mit dem Hinweis auf die Zeile "Name strOldName As strNewName"

Kann mir bitte jemand einen Tip geben?

Danke vorab

:)

 

Hallo,

ohne Angabe der Dateiendung kann die Datei nicht gefunden werden.

Grüße
EarlFred

 

Hallo EarlFred,

das hatte ich auch schon versucht, die Einträge in Excel sahen dann so aus:

strOldName strNewName
PICT0101.jpg PICT0201.jpg
PICT0102.jpg PICT0202.jpg
PICT0103.jpg PICT0203.jpg

Das Ergebnis war leider das Gleiche!

 

Hallo,

im Zweifel würde ich doch glatt der Aussage der Fehlermeldung vertrauen *boah Das lässt sich leicht überprüfen.

Hast Du auch bedacht, dass Dein Code ohne manuelle Eingriffe ins Dateisystem nicht zweimal funktionieren kann?

 

Hallo,

ja, die Dateien existieren definitiv mit dem Namen, der in der Spalte strOldName eingetragen ist.
Auch wenn ich den kpl. Pfad in Excel eintrage, und das script entsprechend ändere, gleiche Meldung.
Im Verzeichnis D:\zzz\liegen nur die 6 .jpg files und das Excel-File test-rename.xlsm.
Eine Umbeennung hat auch nicht stattgefunden, so daß es zumindest 1 mal laufen müsste.

strOldName strNewName
D:\zzz\PICT0101.jpg D:\zzz\PICT0201.jpg
D:\zzz\PICT0102.jpg D:\zzz\PICT0202.jpg
D:\zzz\PICT0103.jpg D:\zzz\PICT0203.jpg
D:\zzz\PICT0104.jpg D:\zzz\PICT0204.jpg
D:\zzz\PICT0105.jpg D:\zzz\PICT0205.jpg
D:\zzz\PICT0106.jpg D:\zzz\PICT0206.jpg

Sub umbenennen()
Dim intRowCount As Integer, intRow As Integer
Dim strOldName As String, strNewName As String
intRowCount = Cells(Rows.Count, 1).End(xlUp).Row
For intRow = 1 To intRowCount
strOldName = Cells(intRow, 1).Value
strNewName = Cells(intRow, 2).Value
Name strOldName As strNewName
Next intRow
End Sub

Kann es sein, daß ich das VBA-script falsch angelegt habe?
Es liegt jetzt unter Module als Modul1, und ich starte es mit F5

 

Hallo,

teste vorab ob die Quell- und Zieldatei existieren und beziehe Cells auf das gewünschte Blatt. In welchem Modul Du den Code unterbringst, bleibt Dir überlassen.

Hinweis: Integervariablen sind bei Excel-Arbeitsblättern nicht immer ausreichend, daher umgestellt auf Long. Code:

 

Meine Empfehlung: Debuggen und prüfen, was tatsächlich in den Variablen steht!!!
Vielleicht ist ja ein Leerzeichen am Am Anfang der Zeile.