Fortschritt: ProgressBar funktioniert, Label nicht
Dirk
ich habe ein Makro erstellt, welches verschiedene xml Dateien aus dem Netz abruft. Da das schon mal etwas dauern kann, und ich nicht will das der Monitor die ganze Zeit flackert, aber auch sehen will ob noch was passiert habe ich eine UserForm mit einem Label und einer ProgressBar eingebaut. Die Progressbar funkioniert auch einwandfrei. aber das Label wird nicht aktualisiert, bzw. nur wenn ich den Code mit F8 schrittweise ausführe. Aus dem Abfrage-Makro wird nach jeder erfolgreichen Abfrage das Update-Makro mit:
Call User1_update(rpercent, percent, intRow, i)
aufgerufen, wobei rpercent gerundete Prozentwerte für das Label und percent die Prozentwerte für die Progressbar sind. i-1 ist die Zahl ausgeführter - und intRow - 1 die Zahl auszuführender Schritte.
Das Update-Makro sieht wie folgt aus:
Sub User1_update(rpercent, percent, intRow, i)
Application.ScreenUpdating = True
UserForm1.Label2.Caption = "Fortschritt: " & rpercent & "% (Berechne " & i - 1 & " von " & _
intRow - 1 & ")"
UserForm1.ProgressBar1 = percent
Application.ScreenUpdating = False
End Sub
Besten Dank schonmal
Dirk