Ich erhalte beim Schliessen einer Excelvorage (*.xltm) ab und zu (nicht immer) die Fehlermeldung "Microsoft Excel: Anwendungs- oder objektdefinierter Fehler" - ohne Fehlernummer.
Wenn ich jedoch mit F8 durch den Code durchgehe, erscheint der Fehler nicht mehr. Mir ist nicht klar, was ich vorkehren kann, um den Fehler zu lokalisieren.
Wenn ich die Datei zuerst als xlsm abspeichere, kommt der Fehler ebenfalls nicht.
Wie kann ich den Fehler lokalisieren?
Gruss, Peter
Aufruf: xNichtSpeichern
Sub xNichtSpeichern()
Dim WbkThis As Excel.Workbook, ws As Worksheet
blnEventsOff = True
Set WbkThis = ThisWorkbook
WbkThis.Close False *
End Sub
* hier wird Private Sub Workbook_BeforeClose(cancel as Boolean)
Privat Sub Workbook_Deactivate()
aufgerufen
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If blnEventsOff = True Then GoTo blnEnde
blnEnde:
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F6}"
Menue_Loeschen
End Sub
Sub Menue_Loeschen() ''Menuename = Konstante
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenueName).Delete
End Sub