gerne möchte ich alle xls-Dateien von einem Quell-Ordner in einen Ziel-Ordner über VBA verschieben. Sowohl der Quell-Ordner als auch der Ziel-Ordner sind variabel und sollen dynamisch zuerst ausgewählt werden. Dazu habe ich folgendes Makro erstellt. Leider bekomme ich immmer die Meldung von der MsgBox angezeigt. Ich hoffe ihr könnt mir weiterhelfen. Danke
Sub Alle_Files_verschieben()
Dim Quelle$, Ziel$, FSO As Object
Dim ObjektQuelle, OrdnerQuelle, PfadQuelle As Object
Dim ObjektZiel, OrdnerZiel, PfadZiel As Object
Set ObjektQuelle = CreateObject("Shell.application")
Set OrdnerQuelle = ObjektQuelle.BrowseForFolder(0, "Bitte Quell-Ordner auswählen", 0)
Set ObjektZiel = CreateObject("Shell.application")
Set OrdnerZiel = ObjektZiel.BrowseForFolder(0, "Bitte Ziel-Ordner auswählen", 0)
If OrdnerQuelle Is Nothing Then
Exit Sub
End If
If OrdnerZiel Is Nothing Then
Exit Sub
End If
Set PfadQuelle = OrdnerQuelle.self
Set PfadZiel = OrdnerZiel.self
Quelle = Dir(PfadQuelle.Path & "\*.xls*")
If Dir(Quelle) = "" Then
MsgBox "Es sind keine Dateien vorhanden!"
Else
Ziel = Dir(PfadZiel.Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile Quelle, Ziel
Set FSO = Nothing
End If
End Sub