So rufen Sie das Dialogfenster auf, um eine Dateiauswahl zu treffen.
Dabei muss es sich nicht unbedingt um das �ffnen handeln,
denn die Aktion nach dem Aufruf des Fensters m�ssen
Sie selbst definieren.

Sub �ffnen()
    'ggf. Laufwerk und Ordner als Vorgabe setzen
    ChDir "\"
    ChDrive "c:\"
    'Das Dialogfenster
    Dateiname = Application.GetOpenFilename _
       ("Micrsoft Excel-Dateien (*.xls),*.xls")
    If Dateiname = False Then Exit Sub
    MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
End Sub

M�chten Sie weitere Dateitypen neben *.xls ausw�hlen k�nnen
muss folgende Syntax verwendet werden:

Datei = Application.GetOpenFilename _
   ("Micrsoft Excel-Dateien (*.xls),*.xls,Textdateien (*.txt), _
   *.txt,Add-In-Dateien (*.xla),*.xla")