Private Sub CommandButton1_Click()
If Range("A4") = "0" Then MsgBox "Mat No Fehlt"
If Range("A4") = "0" Then Exit Sub
Dim sFileName As String
sFileName = ActiveSheet.Range("A4").Value & " - " & ActiveSheet.Range("A9").Value
ActiveWorkbook.SaveCopyAs Filename:= _
"O:\AA_Dispo\Planungsdaten\" & sFileName & ".xlsm"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("A4").Value & ".xlsm gespeichert.", , "OK"
Dim i As Long, sn As String, SelecteerPrinter
SelecteerPrinter = Application.Dialogs(xlDialogPrinterSetup).Show
If SelecteerPrinter Then _
Sheets("CALCULATION (NEW)").PrintOut Copies:=1, ActivePrinter:=SelecteerPrinter, Collate:=False
Workbooks.Open ("O:\AA_Dispo\Planungsdaten\Tool\Re-Order Point (ROP) Calculation Template_V03.xlsm")
ActiveWorkbook.Close SaveChanges:=False
End Sub