Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform automatisch ausblenden

Userform automatisch ausblenden
07.08.2014 19:46:49
Chris

Hallo vbaler
Weiß jmd wie ich per vba folgendes lösen kann
- eine userform soll nach 10 Sekunden automatisch ausgeblendet werden
- wenn innerhalb dieser Sekunden die Leertaste gedrückt wird soll die uf
ausgeblendet werden
Thx
Chris

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

Betreff
Datum
Anwender
Anzeige
AW: Userform automatisch ausblenden
07.08.2014 19:47:43
Hajo_Zi
Hallo Chris,
UserForm nach zeit schließen Sekunden
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

AW: Userform automatisch ausblenden
07.08.2014 19:55:50
Chris
Danke Hajo!
wie packe ich die Anfrage "schließe uf1 nach Betätigung der Leertaste " da noch rein
Gruß Chris

ist doch ganz einfach ...
08.08.2014 06:51:27
Matthias L
Hallo
Ins Formular positionierst Du ein CommandButton, das nach dem Laden des Formulars den Fokus erhält
Diesem Objekt weist Du den Code fürs entladen zu.
Hier dem Button mit dem Text "Fenster schließen"
Userbild
Wenn das Button in der Aktivierreihenfolge ganz oben steht, so erhält es nach dem Laden des Formulares
automatisch den Fokus.
Übrigens war in Deiner Ausgangsfrage nicht die Rede vom Entladen(Unload), sondern
wie immer wieder im Betreff beibehalten vom Ausblenden!
Das wäre dann ja Code-technisch gesehen ein Unterschied.
Übrigens ist Application.Wait die schlechtere Variante
Gruß Matthias

Anzeige
AW: Userform automatisch ausblenden
07.08.2014 19:50:18
Spenski
hi versuch das mal
Application.Wait Now + TimeSerial(0, 0, 10)
Unload UserForm
mit der leertaste muss ich leider passen also mach ichs mal offen
gruss

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige