Kopieren Dateien von einem Ordner in einen anderen Ordner

Hallo Claus,

erstmal supercool und vielen Dank.

Ich weiss, ich bin unverschämt!

Gibt es noch die Möglichkeit folgendes einzubauen:

Wenn in der excel Tabelle ein Dateiname steht, der im Ursprungsverzeichnis (C:\Daten\) nicht gefunden wird, dass dann zum nächsten Feld in der Datei gesprungen wird?

Bislang ist es so, dass das Makro abbricht mit der Meldung "Datei nicht gefunden"

Hallo,

bei mir läuft das Makro ohne Probleme.

Wenn du in einen Fehler läufst, ist die Datei entweder nicht vorhanden oder die Schreibweise des Namens ist in der Excel-Mappe anders.

Probiere es mal so:

Sub DateiVerschieben()
Dim objFSO As Object
Dim LRow As Long, i As Long

Const PfadAlt = "C:\Daten\"
Const PfadNeu = "H:\Daten\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

With ActiveSheet
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To LRow
If Dir(PfadAlt & .Cells(i, "A")) <> "" Then
objFSO.copyfile PfadAlt & .Cells(i, "A"), PfadNeu
End If
Next
End With
Set objFSO = Nothing
End Sub

Claus

Hallo,

was steht denn in den Zellen? Der komplette Pfad oder nur der Name der Datei? Hat die Datei in der Zelle auch eine Dateiendung?

Claus

Hallo,

probiere es mal so:

Sub DateiVerschieben()
Dim objFSO As Object
Dim LRow As Long, i As Long

Const PfadAlt = "C:\Daten\"
Const PfadNeu = "H:\Daten\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

With ActiveSheet
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To LRow
objFSO.copyfile PfadAlt & .Cells(i, "A"), PfadNeu
Next
End With
Set objFSO = Nothing

End Sub

Claus

super, jetzt funzt es perfekt.

Vielen lieben Dank