VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datei verschieben

Gruppe

Datei

Bereich

Verschieben

Thema

Datei 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

    


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