Hallo Karin,
es geht !!!
Lösung sieht so aus:
Sub Asuch()
Dim strPfad As String
Dim strDatei As String
strPfad = Sheets("Zuordnung").Cells(5, 2)
' -------------- ausstehende Aufräge ermitteln -----------
i = 11
Do Until Sheets("Auftrag").Cells(i, 2) = ""
If Sheets("Auftrag").Cells(i, 15) = "" Then
strDatei = Sheets("Auftrag").Cells(i, 3) & "-" & Sheets("Auftrag").Cells(i, 2) & ".txt"
' --------------------------------------------------------
If Dir(strPfad & strDatei) <> "" Then
Datname = strDatei
Pling
Fg = ""
Exit Sub
Else
Fg = "N"
End If
End If
i = i + 1
Loop
End Sub
Ich suche in meiner Tabelle die noch ausstehenden Dateinamen heraus, und prüfe, ob sich diese Dateien in dem Ordner befinden.
Danke für den anderen Ansatz..
Gruß
Andreas