Private Sub CommandButton4_Click()
ActiveWorkbook.SaveAs Filename:="H:\Privat\aktuelleWochenplaene\Wochenplan_" & _
_WorksheetFunction.WeekNum(Range("A5"), _(21) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled , CreateBackup:=False
End Sub
Private Sub CommandButton4_Click()
ActiveWorkbook.SaveAs Filename:="H:\Privat\aktuelleWochenplaene\Wochenplan_" & _
_WorksheetFunction.WeekNum(Range("A5"), _(21) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled , CreateBackup:=False
End Sub