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"