Gibt es eine Möglichkeit, über Excel automatisch und gezielt diese benötigten Dateien in einen separaten Ordner zu koperen?
Danke dun liebe Grüße
Stefan
Sub aaa()
Dim rngC As Range
Const cstrPfad1 As String = "c:\Bilder\"
Const cstrPfad2 As String = "c:\Bilder\relevant\"
If Dir(cstrPfad2, vbDirectory) = "" Then
MkDir cstrPfad2
End If
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
Name cstrPfad1 & rngC As cstrPfad2 & rngC
Next
End Sub