Problem mit Warten-Fenster
Logan
Ich hab da ein Makro, dass etwas Länger zum schaffen braucht. Jetzt hat irgendein Depp ein Fenster eingefügt, der einem 5 Sekunden lang sagt, dass man warten soll:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Left:=170, Top:=160, Width:=150, Height:=25).Activate
ActiveSheet.OLEObjects(ActiveSheet.OLEObjects.Count).Name = "Nachricht"
ActiveSheet.OLEObjects("Nachricht").Object.Text = _
"Bitte einen Augenblick warten..."
Application.Wait (Now + TimeValue("0:00:05"))
ActiveSheet.OLEObjects("Nachricht").Delete
Jetzt taucht dieses Fenster auf und bleibt 5 Sekunden da. Aber erst nach dem es verschwunden ist, arbeitet das Makro weiter! Was muss ich ändern, damit das Fenster am Schluss erst verschwindet und während es da ist, das Modul seine Aufgaben erledigt?
Gibt es sowas wie ne Abschaltmöglichkeit für den Bildschirmaktuallisierer, oder wie es auch immer heißt? Das Modul ist nämlich etwas umständlich geschrieben und öffnet und schließt in seinem Ablauf sehr viele Fenster immer wieder! Das geht so nach ner halben Minute schon tierisch auf den Keks.
MfG
Logan