Mit diesem Code wurden alle Dateien auf einmal - vom QuellOrdner zum ZielOrdner perfekt umgeschaufelt:
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile strQuelle, strZiel
Set objFSO = Nothing
Muss jetzt aber die Dateien einzeln von einem Ordner ( = strQuelle) zu einem anderen (= strZiel) transferieren - also ausschneiden und einfügen.
Die einzelnen Dateien sind:
Dim wkbQuelle As Workbook
Set wkbQuelle = Workbooks.Open(strPath & strFileName)
Besten Dank für eure Hilfe.
mfg STeve