Frage zu Code für UF

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

Betrifft: Frage zu Code für UF von: Bryan
Geschrieben am: 09.04.2005 10:37:30

Morgen,

Mit folgendem Code (hab ich von Ingo) möchte ich eine UF für 5sek einblenden, dann soll sie von allein wieder ausgeblendet werden, geht aber nicht (einblenden ja, selbst ausblenden nein), hab ich zuweisungen oder was vergessen ??

Sub Hinweis1()
UsrSichernfolgt.Show
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Unload UsrSichernfolgt
End Sub



danke für die Hilfe
gruss Bryan
Bild


Betrifft: AW: Frage zu Code für UF von: Hajo_Zi
Geschrieben am: 09.04.2005 10:42:57

Hallo Bryan,

UserForm nach zeit schließen
Sub Start()
Application.OnTime Now + TimeValue("00:00:02"), "Schließen"
UserForm1.Show
End Sub

Sub Schließen()
Unload UserForm1
End Sub

oder
Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 2)
Unload Me
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 Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: Super, vielen Dank Hajo, o.T. von: Bryan
Geschrieben am: 09.04.2005 11:06:24




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Seitenwechsel beim Ausdruck"