Option Explicit
Public Sub speichern()
Dim calc As Variant
Dim wkb As Workbook
Set wkb = ActiveWorkbook
With wkb
.SaveAs "J:\Bestand\2017xxheutexx Bestand.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.Worksheets("2017xxheutexx Bestand Upload").SaveAs "J:\Bestand\2017xxheutexx Bestand Upload.txt", FileFormat:=xlText, CreateBackup:=False
calc = Application.Calculation
Application.Calculation = xlCalculationManual
.Worksheets("Bestandsabgleich").Columns("E:E").ClearContents
.Worksheets("Bestandsabgleich").Range("E1").Value = "Bestand"
.Worksheets("Config").Columns("A:D").ClearContents
Application.Calculate
Application.Calculation = calc
.SaveAs "J:\Bestand\2017xxmorgenxx Bestand.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With
Set wkb = Nothing
End Sub