Hallo Christoph,
ich muss ein wenig im Trüben fischen weil ich einen Mac habe -
und da sieht es natürlich komplett anders aus.
Versuch mal
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Bitte Ordner wählen und OK klicken."
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList 'braucht es diese Zeile wirklich?
.Filters.Clear
.Filters.Add "Word-Dateien", "*.doc", 1
.Filters.Add "Text-Dateien", "*.rtf", 2
.ButtonName = "wählen"
.Show
On Error Resume Next
strFileName = .SelectedItems(1)
If Err <> 0 Then
MsgBox "Vorgang durch Benutzer abgebrochen", vbInformation + vbOKOnly, "Fehler"
Else
End If
On Error GoTo 0
End With
Wenn's auch nicht hilft und hier niemand weiter weis
empfehle ich dieses Forum:
http://www.office-loesung.de/viewforum4_0_0.php
Gruß
Klaus
als Antwort auf: [#519090]