Zeitschleife in VBA!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Grevi,
aus der VBA-Hilfe:
***********************************
Wait-Methode
Siehe auch Betrifft Beispiele Zusatzinfo
Hält das aktuell ausgeführte Makro bis zu einem angegebenen Zeitpunkt an. Gibt zum angegebenen Zeitpunkt True zurück.
Wichtig: Die Wait-Methode unterbricht alle Aktivitäten von Microsoft Excel und verhindert unter Umständen auch das Ausführen sonstiger Vorgänge auf dem Computer. Hintergrundprozesse, wie Drucken und Neuberechnung, werden jedoch fortgesetzt.
Ausdruck.Wait(Time)
Ausdruck Erforderlich. Ein Ausdruck, der ein Application-Objekt zurückgibt.
Time Variant erforderlich. Der Zeitpunkt, zu dem das Makro fortgesetzt werden soll (im Datumsformat von Microsoft Excel).
Beispiel
In diesem Beispiel wird ein aktuell ausgeführtes Makro bis 18.23 Uhr desselben Tages unterbrochen.
Application.Wait "18:23:00"
In diesem Beispiel wird ein aktuell ausgeführtes Makro für ungefähr 10 Sekunden unterbrochen.
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
In diesem Beispiel wird eine Meldung angezeigt, dass 10 Sekunden abgelaufen sind.
If Application.Wait(Now + TimeValue("0:00:10")) Then
MsgBox "Time expired"
End If
******************************
Das kann man auch selbst rausfinden.
Gruß
Martin Beck

Hallo Grevi,
Option Explicit


Sub MsgBox3Sekunden()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
' von Franz W Herber.de
' Verweis auf Microsoft Scripting Runtime
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, "Automatisch...")
' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub


Sub MsgZeit()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
'   von K.Rola
'   kein Verweis notwendig
Const bytZeit As Byte = 3
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden!" & Space(10), bytZeit, "gebe bekannt...")
Set objWSH = Nothing
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeitschleife in VBA!!

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread