Danke das es Euch gibt!
Wie kann ich denn nun mit ein paar einfachen Befehlen eine UF für 3 Sekunden einblenden? Sie soll anschließend wieder verschwinden.
Danke für Eure Hilfe.
Gruß Micha
Private Sub UserForm_Activate()
Dim time As Single
time = Timer
Do While Timer < time + 3
DoEvents
Loop
UserForm1.Hide
End Sub
Private Sub UserForm_Activate()
Dim time As Single
time = Timer
Do While Timer < time + 3
DoEvents
Loop
UserForm1.Hide
End Sub