Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform zeitlich begrenzt einblenden

Forumthread: Userform zeitlich begrenzt einblenden

Userform zeitlich begrenzt einblenden
15.01.2004 22:32:11
Jens
Hallo
Ich möchte beim Öffnen einer Mappe eine Userform zeitlich begrenzt einblenden.
Über welchen Code macht man das.
Ganz nebenbei: Sollte es Unterschiede beim zeitlich begrenzten Einlenden von MsgBox Anzeigen geben, so würde mich das auch interessieren.
Danke
Gruß Jens
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform zeitlich begrenzt einblenden
15.01.2004 22:44:57
K.Rola
Hallo,
den Code ins Modul des userform:
Option Explicit

Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 5), "mach_zu"
End Sub

In ein Standardmodul:
Option Explicit
Sub mach_zu()
Unload UserForm1
End Sub

Gruß K.Rola
Anzeige
MsgBox zeitgesteuert
15.01.2004 23:24:31
Franz W.
Hallo Jens,
für eine MsgBox:

Private Sub CommandButton1_Click()
Dim WshShell              ' Verweis auf Micsosoft Scripting Runtime setzen
Dim intText As Integer
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup("Msgbox für 5 Sekunden", _
5, "Testbox", vbSystemModal)
End Sub

Grüße
Franz
Anzeige
AW: Userform zeitlich begrenzt einblenden
15.01.2004 23:25:50
Thomas Risi
Hi Jens,
versuch's mal so ...


Option Explicit
Private Sub UserForm_Activate()
    Application.Wait Now + TimeValue("0:00:10")
    Unload Me
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Thomas
Risi Thomas Softwareentwicklung
Anzeige
AW: Userform zeitlich begrenzt einblenden
16.01.2004 00:09:30
Jens
Danke Euch allen Dreien.
Hab alles mal ausprobiert.
Funzt sowohl als auch.
Gruß Jens
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige