Interval

Forumthread: Interval
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Interval

Interval

04.04.2004 12:04:39

Rolf

Hallo Leute
ich habe eine Zeitverzögerung die sollte
jedoch kleiner als eine Sekunde sein also
Now+TimeValue("00:00:01") ist zu gross.
Wer kennt sich aus??
Grüsse
Rolf

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Interval

04.04.2004 12:25:52

Josef Ehrensberger
AW: Interval

04.04.2004 13:37:00

Rolf
AW: Interval

04.04.2004 13:42:52

Josef Ehrensberger
AW: Interval

04.04.2004 16:43:31

Rolf

AW: Interval

04.04.2004 12:25:52

Josef Ehrensberger

Hallo Rolf!
Vielleicht hilft dir das!
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
Sleep (500) 'Zeit in Millisekunden
MsgBox "Hallo!"
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)

AW: Interval

04.04.2004 13:37:00

Rolf

Hallo Josef
dein Makro arbeitet alleine sehr gut
jedoch lässt es sich nicht bei mir
einbauen.Zur übersicht gebe dir das Ganse
also


Sub Start()
NaechsterRun=Now+TimeValue("00:00:01")
Application.OnTime NachsterRun,"Start"
meinMakro
End Sub

AW: Interval

04.04.2004 13:42:52

Josef Ehrensberger

Hallo Rolf!
Vielleicht so!

Sub test()
Do
DoEvents
Sleep (500) 'Zeit in Millisekunden
meinMakro
Loop
End Sub
Code eingefügt mit: Excel Code Jeanie

Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)