Private VorExport_Button_Click ()
Schwaches export_file_name
export_file_name = Application.GetSaveAsFilename (, „einzelne Akten-Webseite (*.mht), *.mht“)
Blätter („Meister“). Kopie
ActiveWorkbook.SaveAs Dateiname: =export_file_name, FileFormat: =xlNormal
ActiveWindow.Close
Enden-Unterseeboot
|