Progressbar

Jeg har rodet lidt med nedenstaende kode, fundet paa http://j-walk.com/ss/excel/tips/tip34.htm



Sub Main()
'  Inserts random numbers on the active worksheet
    Dim Counter As Integer
    Dim RowMax As Integer, ColMax As Integer
    Dim r As Integer, c As Integer
    Dim PctDone As Single
   
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    Cells.Clear
    Application.ScreenUpdating = False
   
   
    Counter = 1
    RowMax = 10000
    ColMax = 3
    For r = 1 To RowMax
        For c = 1 To ColMax
            'Cells(r, c) = Int(Rnd * 1000)
            Cells(r, c) = Int(Rnd / 10)
            Counter = Counter + 1
        Next c
        PctDone = Counter / (RowMax * ColMax)
        With UserForm1
            .FrameProgress.Caption = Format(PctDone, "0%")
            .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        End With
'      The DoEvents statement is responsible for the form updating
        DoEvents
    Next r
    Unload UserForm1
End Sub



I stedet for, som i dette eksempel, at opdatere en masse celler med ligegyldige tal, vil jeg gerne basere progressbaren paa to andre input (som evt. kunne vaere hentet i nogle celler). Hvor den ene celle oplyser max antal data til behandling og den anden celle oplyser antal celler der er behandlet. Kan nogen hjalpe med ideer til sadan en losning?