Tages-Zeitvergleich, VBA

04/01/2008 - 11:48 von Reinhard Schüll | Report spam
Hallo NG,

ich suche eine VBA-Bedingung die es mir ermöglicht ab einer bestimmten
Tageszeit (also nicht datumsabhàngig) eine Anweisung auszuführen.

Bisher benutze ich

If ([G1] - (Now() - Int(Now))) * 1440 > 1 Then Exit Sub

in [G1] trage ich von Hand z.B. 08:00:00 als Uhrzeit ein. Gibt es was
besseres?

Gruß Reinhard
 

Lesen sie die antworten

#1 Wolfgang Kutsche
04/01/2008 - 13:23 | Warnen spam
Hallo Reinhard,

ich benutze dazu Application.OnTime [Zeit], [Name aufzurufendes Programm]

In der benamten Zelle [ZeitWert] steht die Tageszeit z. Bsp. 12:00
Das Programm 'Zeitstart' wird zu einem beliebigen Zeitpunkt vor dem
[ZeitWert] gestartet. Wenn die Zeit [ZeitWert] erreicht ist, startet das
Programm 'AufrufProgramm' automatisch.

Sub Zeitstart()
Application.OnTime [ZeitWert], "AufrufProgramm"
End Sub

Sub AufrufProgramm()
MsgBox "es ist jetzt '" _
& Format([ZeitWert], "hh:mm") _
& "' ... der automatische Start ist erfolgt."
End Sub

Gruß Wolfgang
WinXP Home SP2, Office 2003 SP2
http://www.wk-bau-edv.de


"Reinhard Schüll" wrote:

Hallo NG,

ich suche eine VBA-Bedingung die es mir ermöglicht ab einer bestimmten
Tageszeit (also nicht datumsabhàngig) eine Anweisung auszuführen.

Bisher benutze ich

If ([G1] - (Now() - Int(Now))) * 1440 > 1 Then Exit Sub

in [G1] trage ich von Hand z.B. 08:00:00 als Uhrzeit ein. Gibt es was
besseres?

Gruß Reinhard


Ähnliche fragen