senden und speichern mit makros
30.10.2017 11:37:58
Werner
Kann man das auch mit einem Makrobefehl lösen?
Das zweite Anliegen ist, am Schluss werde ich gefragt: *Vorhandene Datei ersetzen*
was ich dann mit einem *klick* auf ja erledige.
Dafür gibt es doch bestimmt auch ein Makrobefehl oder ?
Mein Makro;
Sub Löschauftrag()
' Löschauftrag Makro
' Tastenkombination: Strg+d
Sheets("Freigabe-und Einlagerungspr.").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("XXXXXX").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("XXXXXXXXX").Select
ActiveWorkbook.Save
Dim Name1
Name1 = "G:\03.XXXXXX\XXXXXX\XXXXXX\XXXXXX\" & Range("K5") & "_" & Range("C4") & "_" & _
Range("C8") & ".xlsm"
If Name1 False Then
ActiveWorkbook.SaveAs Name1, FileFormat:=xlOpenXMLWorkbookMacroEnabled,CreateBackup:= _
False
End If
Sheets("XXXXXX").Select
Sheets("XXXXXX").Copy
Dim Name
Name = "G:\03.XXXXX\XXXX\XXXX\XXXXX_" & Range("S3") & ".xls"
If Name False Then
ActiveWorkbook.SaveAs Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSendMail).Show ("XXXXX@XXXXX.com")
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
End If
Sheets("WAU-Nr.").Select
ActiveWorkbook.SaveAs Filename:=("G:\XXXX\XXXX\XXXX\XXXXX\XXXXX 13.10. mit makro Neu.xlsm" _
_
)
End Sub
Jetzt schon ein grosses Danke für eine Lösung!