MsgBox zeitlich begrenzt einblenden

Harald Lemm

unread,

Feb 19, 2001, 10:15:53 AM2/19/01

to

Hallo Excelfreunde,
gibt es eine Möglichkeit eine MsgBox zeitlich begrenzt einzublenden ohne ein
Button zum Verschwinden zu drücken. Folgender Hinweis soll nur zwei Sekunden
erscheinen und dann verschwinden ohne OK zu drücken.

Sub auto_open()
AddIns("Analyse-Funktionen").Installed = True
MsgBox "Ein Programm von Harald Lemm", vbInformation + vbOKOnly,
"Bestandsverwaltung"
End Sub

Für eine Antwort wäre ich Euch dankbar.

MfG

Harald

Thomas Schindzielorz

unread,

Feb 19, 2001, 2:30:14 PM2/19/01

to

Das laesst sich über ein UserForm realisieren, mit Schleife bis 10.000.000 oder
soetwas und dann wieder ausblenden.

Viele Grüße

Thomas Schindzielorz

--
Bytes & More tho...@bytesandmore.de
http://www.bytesandmore.de

Thilo Gläser

unread,

Feb 19, 2001, 2:19:25 PM2/19/01

to

Harald Lemm schrieb:

>
> Hallo Excelfreunde,
> gibt es eine Möglichkeit eine MsgBox zeitlich begrenzt einzublenden ohne ein
> Button zum Verschwinden zu drücken.

Hallo Harald,

wenn die MsgBox erscheint, hat sie den Focus und im Hintergrund tut sich
nichts mehr, aus dem Grunde halte ich das auf diesem Wege für nicht
lösbar. Du könntest aber versuchen, eine Grafik, die genauso aussieht,
anzuzeigen und über eine Schleife nach den 2 sec. wieder verschwinden zu
lassen.

Grüße Thilo

Harald Lemm

unread,

Feb 19, 2001, 2:54:30 PM2/19/01

to

Danke für die prompte Hilfe,

habe das Problem durch Einblenden eines Bildes gelöst.

Dim Hinweis As Object
Set Hinweis = ActiveSheet.Pictures.Insert("c:\bild.gif")
Application.Wait (Now + TimeSerial(0, 0, 2))
Hinweis.Delete

Schönen Dank nochmal
Gruß
Harald

Frank Arendt-Theilen

unread,

Feb 19, 2001, 3:36:27 PM2/19/01

to

Hallo Harald,
hierfür hast du zwei Möglichkeiten:
über WindowsScriptingHost oder per VBA-Userform.

WSH-Beispiel:
Es muß unterExtras/Verweise der verweis auf die Microsoft Scripting
Runtime Bibliothek gesetzt werden.

Sub SplashScreen()
Set wshshell = CreateObject("wscript.shell")
antwort = wshshell.popup(WeekdayName(Weekday(Date)) & _
", der " & Day(Date) & ". " & MonthName(Month(Date)) & _
" " & Year(Date) & vbLf & Time & " Uhr", 2, _
"Systemdatum/Systemuhrzeit", vbInformation + vbSystemModal)
End Sub

Per Userform:
- Erstelle die Userform und nenne Sie frmSplashScreen
- Im Codemodul 'Diese Arbeitsmappe trägst du folgenden Beispiel-Code
ein:
Private Sub Workbook_Open()
frmSplashScreen.Show
End Sub

- Im Codemodul der Userform kopierst du die folgenden Makros:

Private Sub cmdCancel_Click()
KillTheForm
End Sub

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:02"), "KillTheForm"
End Sub

- In einem allgemeinen Modul wird das folgende Makro plaziert:

Sub KillTheForm()
Unload frmSplashScreen
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de

Am Mon, 19 Feb 2001 16:15:53 +0100, schrieb "Harald Lemm"

<webm...@hlemm.de> in microsoft.public.de.excel zu "MsgBox zeitlich
begrenzt einblenden":

Michael Schwimmer

unread,

Feb 19, 2001, 7:19:35 PM2/19/01

to

Thilo Gläser <ut.gl...@t-online.de> schrieb in im Newsbeitrag:
3A9171BD...@t-online.de...
> Harald Lemm schrieb:

> wenn die MsgBox erscheint, hat sie den Focus und im Hintergrund tut sich
> nichts mehr, aus dem Grunde halte ich das auf diesem Wege für nicht
> lösbar.

Hallo Thilo,
das geht schon, ist aber ziemlich aufwändig.

>Du könntest aber versuchen, eine Grafik, die genauso aussieht,
> anzuzeigen und über eine Schleife nach den 2 sec. wieder verschwinden zu
> lassen.

So, oder über eine User-Form ist aber der richtige Weg.
MfG
Michael