Sub
Speichern()
Sheets(
"Bestandsabgleich"
).
Select
ActiveWorkbook.SaveAs Filename:= _
"J:\Bestand\2017xxheutexx Bestand.xlsm"
, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=
False
Sheets(
"2017xxheutexx Bestand Upload"
).
Select
ActiveWorkbook.SaveAs Filename:= _
"J:\Bestand\2017xxheutexx Bestand Upload.txt"
, FileFormat:= _
xlText, CreateBackup:=
False
Sheets(
"Bestandsabgleich"
).
Select
Columns(
"E:E"
).
Select
Selection.ClearContents
Range(
"E1"
).
Select
ActiveCell.FormulaR1C1 =
"Bestand"
Range(
"E1"
).
Select
Sheets(
"Config"
).
Select
Columns(
"A:D"
).
Select
Selection.ClearContents
Range(
"A1"
).
Select
ActiveWorkbook.SaveAs Filename:= _
"J:\Bestand\2017xxmorgenxx Bestand.xlsm"
, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=
False
End
Sub