Msgbox

Forumthread: Msgbox
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Msgbox

Msgbox

17.07.2004 14:44:02

Steffi

Hallo!
Gibt es eine Msgbox ohne Buttons zum Anklicken, die sich automatisch nach einer gewissen Zeit schließt?
Gruß, Steffi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Msgbox

Ulf
AW: Msgbox

Steffi
AW: Msgbox

17.07.2004 15:34:52

Folker
AW: Msgbox

K.Rola

AW: Msgbox

Ulf

Ohne Butto, nein, selbst schließen, ja.
Ulf

AW: Msgbox

Steffi

Hi!
Kennst du den Code für das automatische Msgbox-Schließen nach einer gewissen Zeitdauer?
Gruß, Steffi

AW: Msgbox

17.07.2004 15:34:52

Folker

Hallo Steffi,
klar geht das. Mach dir einfach eine Userform ohne Buttons, die du aufrufst und wieder schliesst. Nicht vergessen ShowModal = False bei der Userform zu setzen.
Folgender Code in einem Modul öffnet und schliesst die Userform.
Gruß Folker
Private Declare


Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub tempMsgBox()
UserForm1.Show
DoEvents
Sleep (2000)
Unload UserForm1
End Sub

AW: Msgbox

K.Rola

Hallo,
wenn dir ein einfaches Popup genügt, dann so:
Option Explicit


Sub Msgbox_OnTime()
Dim WshShell
Dim intMSG As Integer
Set WshShell = CreateObject("WScript.Shell")
intMSG = WshShell.Popup("Ich verschwinde in 3 Sekunden!", 3, "gebe bekannt...", 64)
End Sub

Wenn es etwas individueller sein soll, dann z.B. so:
https://www.herber.de/bbs/user/8642.xls
Gruß K.Rola