SplashScreen

[apikills]

Hallo Allemaal,

ik zou graag een soort van SplashScreen maken, welke zichtbaar wordt bij het opstarten van het excelprogje. Nu kom ik helaas niet verder dan een userform die getoond wordt, maar deze zou na zeg 3 seconden weer moeten verdwijnen. Ik gebruik onderstaande code, maar de userform blijft gewoon staan. Pas wanneer ik de userform afsluit (met het kruisje rechterbovenhoek) gaat alles weer verder. Wat is er niet juist aan?

Private Sub Workbook_Open()

ufSplashScreen.Show
Application.Wait (Now + TimeValue("0:00:03"))
Unload ufSplashScreen

End Sub

Api

 

[Wigi]

Hoi

zie hier maar eens.

Wigi

 

[apikills]

Hoi Wigi,

wederom weer geweldig geholpen. Loopt als een trein

Thanks:thumb:

Api