Excel und VBA: Formeln, Programmierung, Lösungen

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
    

    

Beiträge aus dem Excel-Forum zu den Themen Datei und Name