Das ist der Code. Sorry wenn der etwas unsauber sein sollte aber so habe ich mir den zusammenkopiert und erstellt. Bin kein Profi.
Worksheets("Dateinamen").Activate
Dim Ordnerpfad As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "Bitte wähle den Ordner in dem sich die Gutschriften befinden"
.InitialFileName = ""
.InitialView = msoFileDialogViewThumbnail
.ButtonName = "Auswählen"
If .Show = -1 Then
Ordnerpfad = .SelectedItems(1)
End If
End With
Worksheets("Dateinamen").Activate
Range("A1").Select
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Bitte wähle den Ordner in dem sich die Gutschriften befinden"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With