Kennt jemand eine Lösung?
If digits > 0 Then FRONTEND.Label1001.BackColor = &HFF00&
If digits > 1 Then FRONTEND.Label1002.BackColor = &HFF00&
If digits > 2 Then FRONTEND.Label1003.BackColor = &HFF00&
usw.
Die folgenden Aufrufe, habe ich sowohl vor, als auch nach der Ansteuerung des Balkens eingebaut:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.Calculate
Application.EnableEvents = True
Doevent
Wie schon gesagt, Doevents brachte einen Teilerfolg.
Gibt es andere gute Lösungsansätze, wie man einen Fortschrittsbalken, für die abarbeitung eines Excel Makros, hinbekommt?
Set FRONTEND=sheets("xxxxxxxx")
also die Labels sind wie schon gesagt, direkt auf dem worksheet platziert. Die Sache mittels serform darzustellen, habe ich garnicht erst versucht, da während das Userform offen ist, das Programm nicht weiter ausgeführt wird.