mit dem folgenden Makro (das ich aus diesem Forum habe) lassen sich die Files eines Ordners bequem auflisten.
Sub FilesListen()
a = 1
sPfad = ActiveWorkbook.Path
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder(sPfad)
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
strDat = fDatei.Name
End If
Cells(a, 1) = strDat
a = a + 1
Next fDatei
End Sub
Gibt es die Möglichkeit, dass auch die Files der Ordner, die sich im Ausgangsordner befinden, gleich mitgelistet werden?
Schöne Grüße
Rolf