Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Datei umbenennen

Gruppe

Name

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