Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Msgbox programmatisch schlieszen

Forumthread: Msgbox programmatisch schlieszen

Msgbox programmatisch schlieszen
24.02.2004 09:23:53
Wolfgang
Hallo,
ich möchte in best. Situationen eine Msg-Box programmatisch schlieszen. Es muss aus versch. Gründen eine Msg-Box und kein UserForm sein. Weiss jemand wie?
Danke
Wolfgang
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Msgbox programmatisch schlieszen
24.02.2004 09:36:57
Ramses
Hallo
das wurde von Hajo mal geschrieben:
Option Explicit

Sub MsgZeit()
'Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
Const bytZeit As Byte = 3
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden!" & Space(10), bytZeit, "gebe bekannt...")
Set objWSH = Nothing
End Sub

Gruss Rainer
Anzeige
AW: Msgbox programmatisch schlieszen
24.02.2004 10:22:09
Wolfgang
Danke.
Leider schlieszt sich bei mir die Msg-Box allerdings nicht mehr automatisch....
AW: Msgbox programmatisch schlieszen
24.02.2004 12:10:57
Hajo_Zi
Hallo Wolfgang
ich glaube da hat Rainer sich geirrt der Code komnmt mir nicht bekannt vor Es muß ein Verweis gesetzt werden

Sub MsgBox3Sekunden()
' von Franz W Herber.de
' Verweis auf Microsoft Scripting Runtime
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, "Automatisch...")
' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: Msgbox programmatisch schlieszen
24.02.2004 13:06:05
K.Rola
Hallo,
bei dieser Variante(late binding) ist kein Verweis nötig!
Der Code war übrigens von mir.
Gruß K.Rola
Sorry,... kommt nicht wieder vor :-)) o.T.
24.02.2004 13:08:22
Ramses
...
AW: Sorry,... kommt nicht wieder vor :-)) o.T.
24.02.2004 13:11:29
K.Rola
Hallo Rainer,
das ist doch nicht wirklich ein Problem. Letztlich ist es ja doch
von MS.
Gruß K.Rola
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige