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

Sub Speichern()
    'ggf. Laufwerk und Ordner als Vorgabe setzen
    ChDir "\"
    ChDrive "c:\"
    'Das Dialogfenster, "test.xls" als Vorgabedatei
    Dateiname = Application.GetSaveAsFilename _
      ("Test.xls", "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:

Dateiname = Application.GetSaveAsFilename _
   ("Test.xls", "Micrsoft Excel-Dateien (*.xls), _
   *.xls,Textdateien (*.txt),*.txt,Add-In-Dateien (*.xla),*.xla")