Wie kann ich meinem Application.Dialogs(xlDialogSaveAs).Show einen vorgegebenen Dateinamen mitgeben?
Besten Dank für einen Tip und Gruss
TOM
Sub Test_SaveAs()
Testdatei = "NixDrinne.xls"
SavePathName = "C:\" & Testdatei
ActiveWorkbook.SaveAs Filename:=SavePathName
Range("a1").Select
End Sub
Gruß
Reinhard2
Sub Dialogstest()
Application.Dialogs(xlDialogSaveAs).Show "NochNeDatei.xls"
' oder mit Pfad:
Application.Dialogs(xlDialogSaveAs).Show "c:\TestOrdner\NochNeDatei.xls"
End Sub
gruß reinhard2