Textbox zeitlich begrenzt einblenden
22.10.2005 18:26:17
Frank
Ich habe eine Userform mit Befehlsschaltflächen. Beim betätigen einer dieser Schaltflächen soll vor der eigentlichen Routine eine kurze Information erscheinen. Ich dachte mir eine zeitlich begrenzte Textbox oder sowas.
Ich habe das schon mal innerhalb eines Tabellenblattes gesehen, dass sah dann so aus:
Private Sub Workbook_Open()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Left:=70, Top:=60, 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:03"))
ActiveSheet.OLEObjects("Nachricht").Delete
End Sub
Im obigen Beispiel öffnet sich also für 3 Sekunden ein Textfenster. Aber eben auf dem aktiven Tabellenblatt. Und das möchte ich nicht. Ich möchte, dass die Userform stehen belibt.
Hat da jemand eine Idee?
Gruß
Frank