ontime lässt sich nicht manuell beenden ?
chris
gleich noch eine frage bei der ich Hilfe benötige:
ich starte mit Makro unten einen ontime.
jetzt habe ich ein Makro geschrieben das mit den Ontime beenden soll.
Aber das klappt nicht ?
Könnt ihr mir dabei helfen ?
Vielen Dank
Sub test_aktivieren()
nextTime = Now + TimeValue("00:00:05")
Application.OnTime nextTime, "Start_Makro"
End Sub
Sub Start_Makro()
Fenster_aktivieren "notepad"
On Error Resume Next
Application.OnTime nextTime, "Start_Makro", , False'hier wird richtig beendet
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:05"), "Start_Makro"
End Sub
'Dieses Makro klappt nichT ?
Sub beenden_manuell()
On Error Resume Next
Application.OnTime nextTime, "Start_Makro", , False
On Error Resume Next
End Sub
Anzeige