UserForm

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: UserForm
von: RoWeigert
Geschrieben am: 18.11.2003 21:51:59

Hallo ans Forum,

ich möchte eine UserForm als Mitteilungstext öffnen, welche sich nach Zeitablauf (ohne etwas zu tun) wieder schließt.

Ich habe das in etwa so aufgebaut:


Private Sub UserForm_Initialize()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
UserForm6.Hide
End Sub


Da funktioniert aber nicht.
Geht das überhaupt?

Danke im voraus
Bild


Betrifft: AW: UserForm
von: Nepumuk
Geschrieben am: 18.11.2003 22:04:27

Hallo Ro,
mach es so:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
    Sleep 3000
    Unload Me
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: AW: UserForm
von: Nepumuk
Geschrieben am: 18.11.2003 22:17:56

Hallo Ro,
da fällt mir gerade ein, dass die Userform so nicht richtig dargestellt wird. Aber so geht's:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
    DoEvents
    Sleep 3000
    Unload Me
End Sub



Gruß
Nepumuk


Bild

Beiträge aus den Excel-Beispielen zum Thema " UserForm"