Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Msg Box nach 3 sekunden weg

Msg Box nach 3 sekunden weg
04.09.2006 09:11:55
thomas
Hallo,
für eine MsgBox welche nach 3 Sekunden wieder automatisch verschwinden soll, habe ich folgenden Code aus der Recherche in mein entsprechendes Tabellenblatt eingefügt:
Option Explicit

Sub MsgBox3Sekunden()
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("Wscript.Shell")
intText = WsShell.Popup("Interne Transportzeit wird berechnet.", 3, "Automatisch...")
End Sub

Es passiert aber nix....
Habe ich irgendetwas falsch gemacht?
Bitte mal kurz draufschauen.
Vielen Dank
thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Msg Box nach 3 sekunden weg
04.09.2006 09:19:51
Xelleron
Hallo Thomas,
versuch mal das:
Option Explicit

Private Sub CommandButton1_Click()
Dim WshShell
Dim intText As Integer
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup("Msgbox für 3 Sekunden", _
3, "Testbox", vbSystemModal)
End Sub

Gruß Dennis
AW: Msg Box nach 3 sekunden weg
04.09.2006 12:19:22
thomas
Danke für die Hilfe,
funktioniert leider nicht..
Gruß
thomas
AW: Msg Box nach 3 sekunden weg
04.09.2006 10:59:43
{mskro}
Hallo Thomas,
ich habe es nachvollzogen und siehe da, es funktioniert bei mir.
Gruss Manfred
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige