Nachfolgendem Code möchte ich gerne so umstellen das Quelle und Ziel in 2 Zellen stehen können. Komme damit leider nicht klar. Würde mich freuen wenn ihr mir da mal Helfen könntet.
Vielen Dank im voraus. Andi
Public Sub Datei_kopieren() 'auch bei geöffneten Dateien
Dim FsyObjekt As Object
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
FsyObjekt.copyfile "d:\test.txt", "c:\uebungen\"
End Sub