Also ich habe folgendes vor: Wenn ich eine Arbeitsmappe speichere soll gleichzeitg auch noch eine Kopie dieser Arbeitsmappe erstellt und gespeichert werden. Mein Code sieht folgendermaßen aus:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
a = MsgBox("Soll wirklich eine Sicherheitskopie erzeugt werden?", vbYesNo)
If a = vbYes Then
ActiveWorkbook.SaveAs Filename:="D:\Kopie\Kopie von Test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=false
End If
End Sub
Allerdings bricht dabei Excel immer mit einem Programmfehler ab, undzwar nachdem die Kopie erstellt wurde.
Kann mir vielleicht jemand weiterhelfen?
MfG Marcel