Sub Dateien_eines_Ordners_Auflisten()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("Pfad zum gewünschten Ordner angeben")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 2
For Each objDatei In objDateienliste
If Not objDatei Is Nothing And Right(LCase(objDatei.Name), 4) = ".pdf" Then
ActiveSheet.Cells(lngZeile, 2) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub