Makro Datei kopieren
03.02.2015 00:12:29
Ron
Hallo,
ich benötige Eure Hilfe. Für das Kopieren von Dateien aus einem Quellpfad in einen Zielpfad habe ich mir ein Makro geschrieben. Leider funzt es nicht ganz. Die Kopien werden erledigt, allerdings ist in Spalte B Zeile X die erste leere Spalte erreicht, wird das Makro nicht beendet. Wo ist mein Fehler?
LG und vielen Dank im voraus
Ron
Sub kopieren()
Dim files, myWB, secpath, path, kopie As String
Dim QZ As Integer
myWB = ThisWorkbook.Name
QZ = 6 'erste Zeile mit Dateinamen
secpath = Sheets("Kopie").Range("c3") 'Zielpfad
path = Sheets("Kopie").Range("c2") 'Quellpfad
'Schleife Do While beendet erst wenn die Bedingung Falsch ist
Do Until IsEmpty(Workbooks(myWB).Sheets("Kopie").Cells(QZ, 2).Value)
If Sheets("Kopie").Cells(QZ, 2) <> "" Then
kopie = Workbooks(myWB).Sheets("Kopie").Cells(QZ, 2)
files = Dir(path & kopie)
FileCopy path & files, secpath & files
files = Dir()
QZ = QZ + 1
Else
End If
Loop
MsgBox ("Dateien wurden kopiert")
End Sub