Hallo zusammen ich bin leider ein VBA Noob und scheitere wohl deswegen schon an folgendem Problem:
Ich habe ein Excel Sheet mit zwei Spalten in Spalte A steht ein Dateinamen und in Spalte B steht der Pfad an dem die Date liegt. Ich möchte nun alle dateien, die in dem Excelsheet sind an einen anderen Ort kopieren und habe dies mit folgendem Code versucht:
'in diesem Ordner soll kopiert werden
Const Zielordner = "D:\"
Sub kopieren()
'letzte Zeile in Spalte A finden
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Schleife ab Zeile 1 bis zur letzten Zeile
For x = 1 To Zeilenanzahl
'Dateiname ermitteln
Datei = Range("A" & x)
'Odnername ermitteln
Ordnername = Range("B" & x)
'ggf. ein Backslash anhängen
If Right(Ordnername, 1) <> "\" Then Ordnername = Ordnername & "\"
'kompletten Dateinamen zusammensetzen
Dateiname = Ordnername & Datei
'kopieren
FileCopy Dateiname, Zielordner
Next x
End Sub
Leider kommt beim ausführen des Codes immer die Meldung Pfad nicht gefunden und dies kann ich mir nicht erklären. Bin für jede Hilfe dankbar.
Danke Markus
|