Get Open Filename

Wer weiß Rat??

Danke Volker

Sub DialogDateiOeffnenMehrereDateien()
Dim xlDateiName As Variant
Dim Dateiname As Variant
Dim i As Integer
Dim msg
Dateiname = xlDateiName(i)

xlDateiName = Application.GetOpenFilename( _
Left(Dateiname, 8) = "V_Bom_V0" And Right(Dateiname, 8) = "_All.xls", _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Eine oder mehrere Datei(en) zum Öffnen auswählen", _
MultiSelect:=True)

If TypeName(xlDateiName) = "Boolean" Then Exit Sub

For i = LBound(xlDateiName) To UBound(xlDateiName)
msg = msg & i & ". Datei: " & xlDateiName(i) & vbCrLf
Workbooks.Open xlDateiName(i)
Next i
MsgBox msg, Title:="Ausgewählte Datei(en)..."