SaveAs Befehl und Ursprungsdatei
10.01.2019 10:40:20
Marcel
ich verwende folgenden Code:
Sub ExportMappe_INTERNDeutschland()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Range("F24").Value & "\" & Range("G24").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.SaveAs Filename:=Range("F34").Value & "\" & Range("G34").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True
End Sub
Vielen Dank.