Sub
DateiWaehlen()
Const
sPdfOrdner
As
String
= "e:\tmp\"
With
Application.FileDialog(msoFileDialogOpen)
.InitialFileName = sPdfOrdner
.Title =
"Pdf-Datei auswählen"
.Filters.Add
"Pdf-Dateien"
,
"*.pdf"
.FilterIndex = .Filters.Count
.AllowMultiSelect =
False
.Show
If
.SelectedItems.Count > 0
Then
ThisWorkbook.Worksheets(1).Range(
"A1"
).Value = .SelectedItems(1)
End
If
End
With
End
Sub