.InitialView = msoFileDialogViewList

Sub DateiAuswählenDialog()
Dim DateiAnzahl As Long
With Application.FileDialog(msoFileDialogOpen) '### Öffnen des Dateidialogfensters ###
.Title = "Mein Dialog"
'.AllowMultiSelect = False
.AllowMultiSelect = True
.ButtonName = "Auswählen"
.Filters.Clear
.Filters.Add "Alles (*.*) ", "*.*", 1
.Filters.Add "Musik-Dateien", "*.mp3*", 2
.Filters.Add "Excel-Dateien", "*.XL*", 3
.Filters.Add "Word-Dateien", "*.do*", 4
.FilterIndex =2
.InitialFileName = "C:\"
.InitialView = msoFileDialogViewLargeIcons
 '.InitialView =  msoFileDialogViewLargeIcons geht nicht
.Show
For DateiAnzahl = 1 To .SelectedItems.Count
MsgBox .SelectedItems(DateiAnzahl)
Next DateiAnzahl
End With
End Sub