Salut,
leider hat die Hilfe zu Hans' Beispielen Code zum umbenennen von Dateien nicht funktioniert. Was muss ich ändern damit meine Dateinamen von A2 bis A in die neuen in B2 bis B umbenannt werden? Die Dateiendungen sind durcheinander.
Der gepostete Code:
Sub datei_umbenennen()
Const csMsg As String = "Datei existiert bereits. Überschreiben?"
On Error GoTo ERRORHANDLER
'in A2 steht der alte Dateiname mit kompletter Pfadangabe (analog B2)
i=2
do until cells(i,1)= ""
Name cells(i,1).Value As cells(i,2).Value
i=i+1
loop
Exit Sub
ERRORHANDLER:
If Err = 58 Then
Beep
If MsgBox(csMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
Kill cells(i,2)'was passiert hier? KILL klingt so dramatisch! - Die Datei wird gelöscht!!!
Resume
ElseIf Err = 53 Then
Beep
MsgBox "Datei nicht gefunden!"
End If
Vielen Dank für Eure Hilfe!
Stefan