Rechenkünstler gefragt: Schrittweite variabel
17.02.2004 18:00:15
Franz W.
ich hoffe ich kann beschreiben, worum es mir geht:
ich bastel für einen Freund einen Fortschrittsbalken und möchte dass dieser ziemlich genau ausgeht:
Sub SchleifeBalken()
'Für den Fortschrittsbalken in der UF:
sss = 1
For Each rng In Range(.Cells(4, 2), .Cells(KdAnzahl + 3, e))
rng.Formula = sFormula & rng.Address
rng.Value = rng.Value
If rng.Value = 0 Then rng.Value = ""
'Für den Fortschrittsbalken in der UF:
dlgBitteWartenImp.prgrsBarImp.Width = sss: DoEvents
If sss < 242 Then
sss = sss + 1 / 4
Else
dlgBitteWartenImp.prgrsBarImp.Width = 1
sss = 1
End If
Next rng
End Sub
Die Anzahl der Schleifendurchgänge ist abhängig von der Variablen "KdAnzahl", die Schleife läuft "KdAnzahl * 13"
Bei "KdAnzahl" bis 74 geht es mit der Länge des Balkens genau aus, ab 75 ist der Balken voll und er beginnt von vorne. Nun müsste ich
" sss = sss + 1 / 5 "
setzen, damit es so einigermaßen hinkommt.
Es werden aber ständig neue Kunden dazukommen, die Schleifendurchläufe werden also ständig mehr werden.
Nun meine Frage: lässt sich anstelle der Schrittweite von " 1/4 " eine Formel einsetzen, die den Wert von "KdAnzahl" berücksichtigt, sodass der Balken immer genau 1 Mal durchläuft (bei steigender Anzahl Kunden halt dann langsamer). Ich komm nicht drauf, wie das zu rechnen ist...
Für Eure Hilfe schon mal herzlichen Dank im Voraus
Grüße
Franz