Fehler 1004 bei Ontime
11.06.2008 04:23:37
Mathias
folgender Code funktioniert zwar wie er soll, liefert aber trotzdem einen Fehlercode "1004".
Ich frage mich nur, warum?
Option Explicit
Option Private Module
Dim DaEt As Date ' Zeitpunkt zum prüfen
Const DaZeit As Date = "00:00:01" ' Zeitabstand prüfen
Sub Schliessen()
End Sub
Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="Schliessen", Schedule:=False
DaEt = Now + DaZeit
Application.OnTime DaEt, "Schliessen"
MsgBox (Err & " " & Err.Description)
End Sub
Anzeige