Verständnisfrage Application.wait
27.09.2013 10:55:18
Stefan
ich bräuchte bitte mal einen Rat zur Funktion Application.wait.
Ziel meines Codes ist es, den Text einer Textbox in Zeitabständen von z.B. 3 Sek. zu verändern (Statusanzeige). Wenn ich folgenden Code starte:
ActiveSheet.Shapes("PDF").TextFrame.Characters.Text = "Test 1"
Application.Wait (Now + TimeSerial(Hour:=0, Minute:=0, Second:=3))
ActiveSheet.Shapes("PDF").TextFrame.Characters.Text = "Test 2"
Application.Wait (Now + TimeSerial(Hour:=0, Minute:=0, Second:=3))
ActiveSheet.Shapes("PDF").TextFrame.Characters.Text = "Test 3"
Application.Wait (Now + TimeSerial(Hour:=0, Minute:=0, Second:=3))
läuft es so ab, dass zuerst 3 Sek. gewartet wird, dann der Text "Test 1" in die Textbox eingetragen wird u.s.w.. D.h. die Wait-Funktion wird zuerst ausgeführt und dann erst der Text geändert. Kann mir jemand erklären, warum das so ist und wie man es anders machen kann ? Ich benötige eine Wartefunktion nicht vor, sondern nach der Textänderung.
Besten Dank und schon mal ein sonniges Wochenende.
Gruß
Stefan K.