SaveAs
19.12.2003 23:30:14
Alex
Ich bin, wie schon so oft in der Recherche fündig geworden. Ich habe dort folgenden Code gefunden:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean):
Application.ActiveWorkbook.SaveAs ("e:\Alex\" & "Tabelle1" & Format(Now, "ddmmyy_hhmmss") & ".xls"):
End Sub
(Pfad wurde angepasst)
nachdem ich das Workbook gespeichert habe, verabschiedet sich Exel mit dem Hinweis " Exel hat einen Fehler verursacht und wird geschlossen"
Kann jemand Abhilfe schaffen ?????
Ciao Alex
Anzeige