Hallo
"ich habe in Excel 2010 ein Makro erstellt, das mit seinem einzigen Befehl "UniversalMaske.Show" das Userform "UniversalMaske" aufruft.
In "UniversalMaske" sind ein Commandbutton (mit Namen "Button") und eine Textbox (mit Namen "Meldung"). Die Textbox ist beim Aufrufe des Makros leer und nicht sichtbar.
Beim Klick auf den Commandbutton "Button" wirde folgender VBA Code ausgeführt:
-------------------------------------
Option Explicit
Private Sub Button_Click()
Meldung.Value = "Starte Schleife"
Meldung.Visible = True
' Application.Wait (Now + TimeValue("0:00:01"))
Call Schleife
End Sub
--------------------------------
Private Sub Schleife()
Dim I As Long
For I = 1 To 10000 : Worksheets("Tabelle1").Range("A2") = I : Next I
End Sub
----------------------------
Problem:
Der Text "Starte Schleife" erscheint erst, wenn Call Schleife beendet wurde.
Baue ich eine Verzögerung "Application.Wait" ein erscheint die Textbox und gibt den Text "Starte Schleife" aus.
Weiß jemand, was da los ist?
Rainer
|