title image


Smiley Re: Suche Timer von 3 - 10 Sekunden
Hallo Hans Bärbel,



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





In Foren gilt allgemein das Du. Alle Leute, die ich duze, spreche ich mit dem Vornamen an. Ich habe jetzt mal meinen Antwortstil umgestellt: in Beiträgen, in denen kein Name steht, werden die Personen mit "Hans Bärbel" angeredet, da liege ich zumindest beim Geschlecht mit 50% richtig.

 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: