Gruppe
Datei
Bereich
Name
Thema
Datei umbenennen
Problem
Wie kann ich eine Datei umbenennen? Der Quellname steht in Zelle A2 und der Zielname in B2. Fehlermeldungen sollen abgefangen werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub DateiUmbenennen()
Const csMsg As String = "Datei existiert, überschreiben?"
On Error GoTo ERRORHANDLER
Name Range("A2").Value As Range("B2").Value
Exit Sub
ERRORHANDLER:
If Err = 58 Then
Beep
If MsgBox(csMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
Kill Range("B2").Value
Resume
ElseIf Err = 53 Then
Beep
MsgBox "Datei nicht gefunden!"
End If
End Sub