Hallo,
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 = msoFileDialogView...