Statusleiste in Userform "hängt"
23.07.2019 18:40:31
Volker
ich habe inzwischen gelernt, dass die visuelle Erfahrung bei mir in der Firma eine große Auswirkung darauf hat, ob Excel-Tools genutzt werden oder nicht. Daher habe ich für mein neuestes Tool einen Startbildschirm in Form einer Userform eingefügt inklusive eines "Start"-Buttons. Um das ganze abzurunden hatte ich mich im Internet schlaugelesen, wie man einen Statusbalken in einer Userform erzeugen kann. Da in meinem Fall nicht wirklich Daten geladen oder verarbeitet werden müssen, soll der Statusbalken über die "Application.Wait" Funktion fortschreiten. Das sieht dann wie folgt aus:
Private Sub ButLaunch_Click()
ButLaunch.Visible = False
Bar.Width = 0
Text.Caption = "0%"
CapLoad.Visible = True
Border.Visible = True
For i = 0 To 4
Bar.Width = i * 37.5
Text.Caption = i * 25 & "%"
Application.Wait (Now + TimeValue("00:00:01"))
Next i
Application.Wait (Now + TimeValue("00:00:02"))
Unload Me
End Sub
So weit, so gut. Teilweise funktioniert das ganz fabelhaft. Aber in den meisten Fällen wird einfach nur der Ladebalken mit 0% eingeblendet und bleibt so hängen bis die Userform ausgeblendet wurde.
Hat hierfür jemand eine Erklärung und/oder eine Lösung wie es zuverlässiger funktionieren könnte? Ich weiß, dass wirkt erst einmal wie eine ziemlich unsinnige Anfrage, rundet aber mein Tool erst so richtig ab (und ist ein persönlicher Wunsch meines Chefs).
Hier die Beispieldatei:
https://www.herber.de/bbs/user/131034.xlsm
Über Strg + y lässt sich der Startbildschirm wieder aufrufen.
Ich bin für alle Tipps und Hinweise dankbar.
Mit freundlichen Grüßen
Volker
Anzeige