Fehler im Speichern VBA Code
27.11.2014 07:44:04
Langmantl
habe folgendes Problem. In Beigefügter Datei, die soweit ganz gut funxt, soll in der Userform 2 bei Klick auf den Button speichern, die Datei unter dem Dateinamen Wochenplan_(Nach dem Unterstrich soll die Wochennummer des Wochenplans stehen). Dieser kann aus der Tabelle 1 ausgelesen werden. Habe schon mal hier versucht einen Code zu machen, aber irgendwo ist ein Syntaxfehler, weiß nicht wo.
Der Fehlerhafte Bereich müsste rot eingefärbt sein in der Datei
Private Sub CommandButton4_Click()
ActiveWorkbook.SaveAs Filename:="H:\Privat\aktuelleWochenplaene\Wochenplan_" & _
_WorksheetFunction.WeekNum(Range("A5"), _(21) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled , CreateBackup:=False
End Sub
Wer kann mir helfen, bitte?
Hier die Datei: https://www.herber.de/bbs/user/94052.xlsm
Liebe Grüße aus Berlin
Benedikt