Du solltest vor dem formulieren der Frage schon darüber klar sein ob Du den Dialog Öffnen haben willst oder ob Du was Durchsuchen willst. Was meiner Meinung nach zwei unterschiedliche Sachen sin
Application.Dialogs(xlDialogOpen).Show
Gruß Hajo
ein Klare Aufgabenstellung hilft ungemein.
Mal ala Ansatz
258. Bestimmtes Verzeichnis und *.TXT
Dim strVerzeichnis$
strVerzeichnis = "E:\eigene Dateien"
' Überprüfen ob Verzeichnis vorhanden
If Dir(strVerzeichnis, vbDirectory) <> "" Then ChDir strVerzeichnis Else Exit Sub
dat = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
' Auf die Variable dat wird der Dateinamen geschrieben
If dat <> "Falsch" Then Workbooks.Open dat
Gruß Hajo
Option Explicit
Sub FileName()
Dim strFileName As String
strFileName = Application.GetOpenFilename("Microsoft " & _
"Excel-Dateien (*.xls), *.xls")
If strFileName <> "" Then
MsgBox GetFileName(strFileName) & Space(10), 64, "L.Vira..."
End If
End Sub