Habe ein Problem: 

 

Ich möche Zellen aus ener Tabelle mit Dateinamen aus einem Ordner und Unterordnern vergleichen und sollten sie übereinstimmen wird die Datei in einen Zielordner kopiert. Das Beispiel aus dem Netz fuktioniert auch soweit und konnte auf meine Bedürfnisse umgeschrieben werden.

 

Wie beziehe ich in diesem Beispiel mögliche Unterordner ein? Wenn eine Name der Liste nicht als Datei vorhanden ist soll er nicht aus dem Programm aussteigen, sondern die Liste weiter abarbeiten!

 

Den Quell- und Zielpfad habe ich für mich so gestaltet, dass er von einer Range, zB. C8 übernommen wird. das funzt auch! Hier ist das leicht geänderte Beispiel, das ich nicht so hinbekomme, also Unterordner abgleichen und bei nicht vorhandener Datei weiter abarbeiten

 

Es wäre super wenn mir jemand helfen könnte! DANKE!

 

 

 

 

Sub Test()

Dim i As Long

Dim myFSo As Object

Dim sPath As String

Dim sPath2 As String

 

   sPath = Worksheets("TEST").Range("C8")

     sPath2 = Worksheets("TEST").Range("C9")

 

   With Worksheets("NEU")

    Const sSpalte As Long = 1

   

   

    

    For i = 1 To Cells(Rows.Count, sSpalte).End(xlUp).Row

        'ist zelleninhalt vorhanden

         If Cells(i, sSpalte) > "" Then

            'ist datei im angegebenen Ordner vorhanden

       

       

            If Dir(sPath & Cells(i, sSpalte))  > "" Then

                

                Set myFSo = CreateObject("Scripting.FileSystemObject")

                

myFSo.CopyFile sPath & Cells(i, sSpalte) sPath2 & Cells(i, sSpalte) , True

 

           

 End If

        End If

      

 

    Next i

 

 

End With

End Sub