Herbers Excel-Forum - das Archiv
Msgbox nur 3sec einblenden
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ UserForm
- Msgbox nur 3sec einblenden von golem vom 25.11.2003 15:35:56
- AW: Msgbox nur 3sec einblenden - von Knut am 25.11.2003 15:37:40
- AW: Msgbox nur 3sec einblenden - von WernerB. am 25.11.2003 15:42:20
- AW: Msgbox nur 3sec einblenden - von MikeS am 25.11.2003 15:43:43
- Danke für schnelle Hilfe !!!!! o.T. - von golem am 25.11.2003 15:53:07
- Danke für schnelle Hilfe !!!!! o.T. - von golem am 25.11.2003 15:53:07
- AW: Msgbox nur 3sec einblenden - von Knut am 25.11.2003 15:37:40
 |
Betrifft: Msgbox nur 3sec einblenden
von: golem
Geschrieben am: 25.11.2003 15:35:56
Hallo,
kann man eine msgbox zeitlich begrenzt einblenden, so dass man nicht erst "Ok" drücken muß?
Außerdem habe ich kleines PRob: i=Variable; j=Variable
Wie kann man in EINER msgbox erst eine Variable ausgeben der dann Text folgt dann Variable und dann Text?
MsgBox "" &i "hallo" &j "Wie gehts?"
Freue mich auf Eure Antwort!
Viele Grüsse
 |
Betrifft: AW: Msgbox nur 3sec einblenden
von: Knut
Geschrieben am: 25.11.2003 15:37:40
MsgBox i & " hallo " & j & " Wie gehts?"
Msgbox nach Zeit findest du in der Recherche.
Knut
|
Betrifft: AW: Msgbox nur 3sec einblenden
von: WernerB.
Geschrieben am: 25.11.2003 15:42:20
Hallo Golem,
hier ein Beispiel für eine zeitlich begrenzte MsgBox:
Sub MsgBox3Sec()
'Verweis auf MS Scripting Runtime
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.popup("Diese Meldung wird nach 3 Sekunden geschlossen.", _
3, "Dezenter Hinweis für " & Application.UserName & ":")
'Die "3" in der letzten Zeile gibt die Öffnungsdauer in Sekunden an.
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
|
Betrifft: AW: Msgbox nur 3sec einblenden
von: MikeS
Geschrieben am: 25.11.2003 15:43:43
So:
'in Diese Arbeitsmappe
Option Explicit
Private Sub Workbook_Open()
UserForm1.Show
End Sub
'in UserForm1
Option Explicit
Private Sub UserForm_Activate()
Application.Wait (Now + TimeSerial(0, 0, 3))
Unload Me
End Sub
Code eingefügt mit Syntaxhighlighter 2.1
Ciao MikeS
|
Betrifft: Danke für schnelle Hilfe !!!!! o.T.
von: golem
Geschrieben am: 25.11.2003 15:53:07
| |