Hallo VBA-Freunde,
ich möchte gerne den Befehl "Speichern unter" per VBA aufrufen und den User den Speicherpfad wählen lassen, aber den Dateinamen zum Speichern vorschreiben.
Mit folgendem Codeteil:
ActiveWorkbook.saveAs Filename:=Speicherpfad, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
geht das ja für einen festen speicherpfad.
In der B12 habe ich mir den Speicherpfad zusammengebaut:
Speicherpfad = Range("B12").Value
=B8&G20&", "&TEXT(E20;"JJJJ-MM-TT")&", Smartsheet.xlsm"
so lautet die Variable nun: E:\BUCON\APC-123-001-14, 2014-10-27, Smartsheet.xlsm
Den Teil E:\BUCON\ soll nun der User mit speichern unter wählen können und der Dateiname
APC-123-001-14, 2014-10-27, Smartsheet.xlsm muss dann verwendet werden.
Wie kann ich das Problem lösen?
Vielen Dank für eure Hilfe schon im voraus.
ich möchte gerne den Befehl "Speichern unter" per VBA aufrufen und den User den Speicherpfad wählen lassen, aber den Dateinamen zum Speichern vorschreiben.
Mit folgendem Codeteil:
ActiveWorkbook.saveAs Filename:=Speicherpfad, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
geht das ja für einen festen speicherpfad.
In der B12 habe ich mir den Speicherpfad zusammengebaut:
Speicherpfad = Range("B12").Value
=B8&G20&", "&TEXT(E20;"JJJJ-MM-TT")&", Smartsheet.xlsm"
so lautet die Variable nun: E:\BUCON\APC-123-001-14, 2014-10-27, Smartsheet.xlsm
Den Teil E:\BUCON\ soll nun der User mit speichern unter wählen können und der Dateiname
APC-123-001-14, 2014-10-27, Smartsheet.xlsm muss dann verwendet werden.
Wie kann ich das Problem lösen?
Vielen Dank für eure Hilfe schon im voraus.
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
Es ist nicht genug, zu wollen. Man muss es auch tun.