Fehler beim Speichern
26.11.2014 12:06:36
Langmantl
Private Sub CommandButton4_Click()
ActiveWorkbook.SaveAs Filename:="H:\Privat\aktuelleWochenplaene\Wochenplan_" & _
_WorksheetFunction.WeekNum(Range("A5"), _(21) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled , CreateBackup:=False
End Sub
Anzeige