Dim strZielDatei As String
 
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
 
fd.InitialFileName = "D:\datenbank\Name.xls"
fd.Show
 
strZieldatei = fd.SelectedItems(1)

t?tet keine v?gel, wir v?geln auch keine toten!