On Time-Zeitrythmus beenden
25.07.2007 14:28:36
Hannes
warum ist es so schwer diesen "On Time"-Zeitrythmus zu beenden ?
so funktionierts zumindest nicht immer !
hat jemand eine Idee warum das nicht beendet wird ?
Danke!
Grüße Hannes
Private Sub Workbook_Open()
ActiveWindow.ScrollColumn = 1
If ThisWorkbook.ReadOnly = False Then
Application.OnTime EarliestTime:=Now + TimeValue("00:15:00"), Procedure:="Mappe_Schließen"
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If ThisWorkbook.ReadOnly = False Then
Application.OnTime EarliestTime:=Now + TimeValue("00:15:00"), _
Procedure:="Mappe_Schließen", Schedule:=False
End If
End Sub