Sub test()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Bitte wähle den Ordner in dem sich die Gutschriften befinden"
.InitialFileName = InitialFoldr$
.InitialView = msoFileDialogViewThumbnail
.ButtonName = "Auswählen"
If .Show = -1 Then
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
Worksheets("Dateinamen").Cells(1, 1 + xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End If
End With
End Sub