Laufzeitfehler 1004 bei Application.OnTime-Methode
16.03.2007 09:08:17
Kasimir
ich experimentiere gerade mit der Application.OnTime-Methode herum. Dazu habe ich 2 Makros.
Option Explicit
Dim i As Integer
Sub Start()
If i >= 360 Then
Ende
Exit Sub
End If
i = i + 10
Range("A1") = i
Application.OnTime Now + TimeValue("00:00:01"), "Start"
End Sub
Sub Ende()
Range("A1") = 0
Application.OnTime EarliestTime:=TimeValue("00:00:01"), _
Procedure:="Start", Schedule:=False
End Sub
Leider funktioniert das Ende-Makro nicht. Wird es gestartet, erhalte ich einen Laufzeitfehler 1004, Die Methode für das Objekt _Application ist fehlgeschlagen. Warum erhalte ich einen Fehler, bzw. was ist falsch an dem Ende-Makro?
Danke Euch,
Kasimir