Hi felix,
datname = Cells(lngZ, 1) & ".pdf"
If Dir(datname) <> "" Then
fast. ;-)
Dim lngZ As Long
Dim strQuellpfad As String, strZielpfad As String
Dim datname As String
'Schleife über die Zellen:
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
'Quellpfad zusammenbasteln:
strQuellpfad = "C:\test" & Cells(lngZ, 1) & ".pdf"
'Zielpfad zusammenbasteln:
strZielpfad = "C:\test" & Cells(lngZ, 2) & "" & Cells(lngZ, 1) & ".pdf"
'Kopieren:
if dir(strquellpfad) <> "" then
FileCopy strQuellpfad, strZielpfad
else
msgbox strquellpfad & " nicht vorhanden."
end if
Next
End Sub
(ungetestet)
Viele Grüße
Jörg