Sub Makro1()
Const C_ZIEL As String = "E:\Ziel"
Dim myFull As String, SaveFull As String
myFull = ActiveWorkbook.FullName
SaveFull = Replace(myFull, ThisWorkbook.Path, C_ZIEL)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=SaveFull, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
On Error Resume Next
Kill myFull
On Error GoTo 0
Application.DisplayAlerts = False
End Sub