Laufzeitfehler 1004 zugriff verweigert
17.12.2015 09:00:25
Erik
habe folgenden Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"X:\Winterkompletträder\Reifenbestellung.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"X:\Winterkompletträder\Reifenbestellung autom Sicherung\Reifenbestellung" & Format(Now, _
"DD-MM-YY_hh-mm") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Habe zuerst an ein Netzwerkproblem gedacht, der Server ist aber über Netzlaufwerk verbunden, denn wenn ich nach besagter Fehlermeldung auf beenden klicke, kommt die Meldung: Sollen Änderungen in Reifenbestellung.xls speichert werden?
Ein klick auf ja und es wird abgespeichert.
Habe ich einen Fehler im Makro ?
Gruß und Danke vorab,
Erik
Anzeige