Absturz wegen before_save makro
20.06.2017 14:19:54
Jochen
ich habe folgendes before_save makro geschrieben:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If ActiveSheet.Name = "check results" Then
Worksheets(1).Select
End If
On Error Resume Next
Worksheets("check results").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Es funktioniert immer problemlos, wenn ich speicher.
Wenn ich excel schließe + speicher dann funktioniert es, wenn ich auf einem anderen Arbeitsblatt als "check results" bin.
Bin ich jedoch auf "check results" und schließe excel dann, wird zwar das before_save Makro durchgeführt, danach hängt sich Excel aber auf. Der Fehler ist reproduzierbar. Mein Workaround vorher automatisiert (siehe Marko) auf ein anderes Arbeitsblatt zu wechseln, ändert nichts.
Hat irgendjemand eine Idee, wie ich das Problem lösen kann?
Viele Grüße
Jochen
Anzeige