Wie lautet der Code,
Option Explicit
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Filename:="F:\Wochenplan_" & WorksheetFunction.WeekNum(Range("A5"), _
21) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Private Sub CommandButton4_Click()
ActiveWorkbook.SaveAs Filename:="H:\User\Langmantl\Privat\aktuelleWochenpläne\Wochenplan_" & _
WorksheetFunction.WeekNum(Range("A5"), _
21) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
muss auch daraufhinweisen, dass dies ein Netzlaufwerk ist
Private Sub CommandButton4_Click()
ActiveWorkbook.SaveAs Filename:="H:\User\Langmantl\Privat\aktuelleWochenpläne\Wochenplan_" & _
WorksheetFunction.WeekNum(Range("A5"), _
21) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
muss auch daraufhinweisen, dass dies ein Netzlaufwerk ist