Sub text()
Dim Arr() As String
Dim zeile As Integer
Dim y As Integer
Dim Path As String
Dim File As String
Dim Fehlt As String
Dim Datei As String
Path = ThisWorkbook.Path & "\Tabellen\TXT-Abzüge vom SAP hier abspeichern"
With Sheets("File_Download")
zeile = 7
Do
Datei = .Cells(zeile, 10).Value
Arr() = Datei
zeile = zeile + 1
Loop Until IsEmpty(.Cells(zeile, 10).Value)
For y = UBound(Arr) To LBound(Arr)
File = Dir(Path & Arr(y), vbDirectory)
If File = "" Then
Fehlt = Fehlt & Chr(10) & "- " & File
End If
Next y
If Not Fehlt = "" Then
MsgBox ("Folgende Files sind nicht im Zielordner vorhanden:" & Fehlt)
End If
End With
End Sub