Fehler bei Schleife
23.03.2016 20:07:52
SteffenS
Hallo Zusammen,
wenn ich folgende Schleife unter Excel 2013 ausführe erhalte ich den Fehler:
Ungültiger Prozessduraufruf oder oder ungültiges Argument.
Woran liegt das, ich bekomme es einfach nicht raus.
If Dir(ThisWorkbook.Path & "\betriebe_blv\" & hdlnr & "\Monatsabschluss", vbDirectory) <> "" Then
Dateien = Dir(ThisWorkbook.Path & "\betriebe_blv\" & hdlnr & "\Monatsabschluss\*.*")
Do While Dateien <> ""
'Datei kopieren
If Dir(apath & hdlnr & "\Monatsabschluss", vbDirectory) = "" Then MkDir apath & hdlnr & "\Monatsabschluss"
FileCopy ThisWorkbook.Path & "\betriebe_blv\" & hdlnr & "\Monatsabschluss\" & Dateien, apath & hdlnr & "\Monatsabschluss\" & Dateien
Dateien = Dir
Loop
End If
Danke Euch
VG SteffenS