UserForm Schließen

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

Betrifft: UserForm Schließen
von: Nadine
Geschrieben am: 10.11.2003 11:23:48

Hallo erstmal an Alle hier!

Ich habe OfficeXP. In diesem Excel funktioniert folgender Code zum Schließen einer UserForm nach der vorgegebenen Zeit:

In einem Modul:


Sub Auto_Open()
    UserForm1.Show
    Application.OnTime Now() + TimeValue("0:00:05"), "FormWeg"
...
End Sub


In einem anderen Modul:


Sub FormWeg()
Unload UserForm2
End Sub


Diesen Code wollte ich auf Arbeit in Excel 97 einsetzen. Da funktioniert er aber nicht. Die UserForm öffnet sich zwar, schließt sich aber nicht von allein nach der vorgegebenen Zeit.
Hat vielleicht jemand eine Idee, wie es auch in Excel 97 funktioniert?

Ich danke Euch schonmal für Eure Antworten!
Tschühüß Nadine
Bild


Betrifft: AW: UserForm Schließen
von: Ron Andres
Geschrieben am: 10.11.2003 11:25:05

Hi,

das user Form, daß Du öffnest ist "UserForm1" und beim schließen "UserForm2".

...

Gruß Ron Andres


Bild


Betrifft: AW: UserForm Schließen
von: Nadine
Geschrieben am: 10.11.2003 11:27:26

Hallo Ron!

Nein - das ist ein Schreibfehler!

Es ist natürlich beides "UserForm1"!

Tschüß


Bild


Betrifft: AW: UserForm Schließen
von: Ron Andres
Geschrieben am: 10.11.2003 11:34:04

Dann leg doch mal auf dem Userform einen Button an und weise dem Klick Ereignis diesen Code zu:

sub...
unload me
end sub

wobei me das aktuelle Userform ist, das gerade angezeigt wird.

Gruß Ron


Bild


Betrifft: AW: UserForm Schließen
von: Nadine
Geschrieben am: 10.11.2003 11:35:47

Hallo Ron
Die UserForm soll sich ja nach 5 Sekunden von allein schließen.
Liebe Grüße Nadine


Bild


Betrifft: AW: UserForm Schließen
von: Hajo_Zi
Geschrieben am: 10.11.2003 11:38:35

Hallo Nadine

ich habe jetzt nicht alle Beiträge gelese. Nur mal auf den letzten.

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 Pro und Excel Version XP Pro




Bild


Betrifft: AW: UserForm Schließen
von: Nadine
Geschrieben am: 10.11.2003 11:50:03

Vielen Dank für alle Antworten!
Ich werde erstmal probieren, ob es auf Arbeit mit Excel 97 funktioniert.
Bis dahin - viele liebe Grüße Nadine


Bild

Beiträge aus den Excel-Beispielen zum Thema " UserForm Schließen"