Office: Probleme mit Fortschrittsbalken (Progressbar)

hallo,

habe ein problem mit dem fortschrittsbalken in Excel 2003.

ich lass in meiner datei sortier und zählungen als macro laufen, welche jedoch ca. 1 minute zeit in anspruch nehmen. screenupdate etc hab ich ausgeschalten, der user sieht also nix

jetzt habe ich mich etwas in programmierung eines fortschrittbalkens eingearbeitet. habe es auch scho geschaft schleifen zu programmieren, mit welchen ein fortschrittsbalken läuft inkl update der title beschriftung des balkens.

nur wie kann ich so einen balken (userform) in ein sub einbinden?

wenn ich die userform aufrufe, läuft einmal der balken von 0 bis 100 (voll) und dann wenn er das nächste mal wieder den befehl userform1.show bekommt läuft der balken wieder von 0 bis 100

ich möchte aber, dass der balken mit jeder sortieroperation weiterläuft also muss ich die userform irgenwie verlassen, den alten stand des balkens sichern und wenn er einmal in seinem sub wieder sortiert hat, möchte ich dass der fortschrittsbalken wieder aktualisiert wird.

mein probelm ist halt, dass das userform durch userform.show jedesmal NEU aufgerufen wird und sich keinen alten stand speichert.

anderersetis kann ich userform nicht als funktion mit parameterübergabe aufrufen und mir irgendwie einen parameter vom userform sichern.

hat einer ne idee wie ich das machen könnte?

 

erledigt ;)

 

und wie? , das wäre auch toll wenn du sagen würdest wie du das gemacht hast

 

Sub ProgressBar(PctDone As Single)
With ProgressDlg
.lblDone.Width = PctDone * (.lblRemain.Width - 2)
.lblPct.Caption = Format(PctDone, "0%")
End With
'The DoEvents statement is responsible for the form updating
DoEvents
End Sub


Function setPos(i As Long, intMax As Long)

With ProgressDlg
ProgressDlg.Caption = "Rebuilding Geometry-Index, please wait"
If i Mod 5 = 0 Then ProgressBar i / intMax
End With
End Function



Private Sub UserForm_Activate()
Call Main

End Sub

Private Sub UserForm_Initialize()
With Me.lblDone ' set the "progress bar" to it's initial length
.Top = Me.lblRemain.Top + 1
.Left = Me.lblRemain.Left + 1
.Height = Me.lblRemain.Height - 2
.Width = 0
End With
End Sub



in meiner subroutine

main()

iMax = 2000
i = 0

setPos i, iMax

i = i + 1


ein fehler hat der balken noch:

iMax wird derzeit ein fester wert vorgeben und zwar 2000

falls das macro jetzt mehr als 2000 durchlaufen wird, kommt es zu einem vba fehler.

ich muss jetzt irgendwie noch vorher zählen, wie oft mein macro ca. durchlaufen wird, das mach ich aber erst morgen :)

falls es fragen zu dem code gibt bitte hier schreiben: