Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Datei verschieben

Gruppe

Verschieben

Problem

Wie kann ich Dateien - auch Nicht-Excel-Files - von einem Ordner zum anderen verschieben. 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 DateiVerschieben()
   On Error Resume Next
   Name Range("B1").Value As Range("B2").Value
   If Err > 0 Then
      Select Case Err
         Case 53: MsgBox "Datei nicht vorhanden!"
         Case 58: MsgBox "Datei existiert bereits!"
         Case Else: MsgBox Error()
      End Select
   End If
End Sub