Hallo,
probier mal:
Option Explicit
Public Sub no_test()
Dim avntArray As Variant
Dim ialngIndex As Long
avntArray = Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2)).Value
For ialngIndex = 1 To UBound(avntArray, 1)
Call FileCopy(Source:=avntArray(ialngIndex, 1), Destination:=avntArray(ialngIndex, 2) & Right$(String:=avntArray(ialngIndex, 1), Length:=InStrRev(avntArray(ialngIndex, 1), Application.PathSeparator)))
Next
End Sub
Gruß,
|