Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform automatisch ausblenden

Betrifft: Userform automatisch ausblenden von: Chris
Geschrieben am: 07.08.2014 19:46:49

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

  

Betrifft: AW: Userform automatisch ausblenden von: Hajo_Zi
Geschrieben am: 07.08.2014 19:47:43

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
GrußformelHomepage


  

Betrifft: AW: Userform automatisch ausblenden von: Chris
Geschrieben am: 07.08.2014 19:55:50

Danke Hajo!

wie packe ich die Anfrage "schließe uf1 nach Betätigung der Leertaste " da noch rein

Gruß Chris


  

Betrifft: ist doch ganz einfach ... von: Matthias L
Geschrieben am: 08.08.2014 06:51:27

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"



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


  

Betrifft: AW: Userform automatisch ausblenden von: Spenski
Geschrieben am: 07.08.2014 19:50:18

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


 

Beiträge aus den Excel-Beispielen zum Thema "Userform automatisch ausblenden"