Exit bei Run-Time error
Marc
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.Show
datei = .SelectedItems(1)
End With
GrußMarc
Anzeige