Text in Textbox aktivieren
Dietmar
ich für ein Macro nach vorherigem Aufruf einer Userform aus, indem ich die UF mit *show* aufrufe.
Die Userform hat einen Button, der dann das eigentliche Macro startet.
Das das Macro etwas mehr Zeit braucht, habe ich in die UF eine TextBox eingebaut, in der der Text *Bitte warten ...* erscheinen soll.
Das gelingt mir allerdings NUR, wenn ich nach dem Klick auf den Button der UF eine Msgbox integriere. Ansonsten läuft das Macro durch und die Textbox bleibt leer.
Nun meine Frage:
Wie kann ich auf anderem Wege erreichen, dass der vorgesehene Text in der Textbox erscheint?
Eine Msgbox dazwischen zu schalten stört irgendwie.
Mit Application.screenupdating = true funktioniert es nicht.
Private Sub Cmd_UpdateStarten_Click()
TextBoxUpdateBitteWarten = "Bitte warten ..."
MsgBox "Klicken Sie auf OK" '>>> das will ich aber nicht!
'Mein Macro
End Sub
Dietmar aus Aachen
Anzeige