wichtig: dateien nach excel-tabellen verschieben oder kopieren!?

[Jörg Lorenz]

Hi,

hast du eventuell ein vba-beispiel ...

naja, so gewünscht ist das hier nicht, aber selber bin ich Verfechter der verschiedenen Lernmethoden. Also verrate es nicht weiter. ;-)

Dim lngZ As Long
Dim strQuellpfad As String, strZielpfad As String

'Schleife über die Zellen:
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    'Quellpfad zusammenbasteln:
    strQuellpfad = "C:\Irgendwas" & Cells(lngZ, 1) & ".pdf"
    'Zielpfad zusammenbasteln:
    strZielpfad = "C:\Irgendwas" & Cells(lngZ, 2) & "" & Cells(lngZ, 1) & ".pdf"
    'Kopieren:
    FileCopy strQuellpfad, srzielpfad
Next

Das Beispiel ist aber ungetestet, nur eine Anregung.

Viele Grüße

Jörg