Ich habe eine Fortschrittsanzeige die sieht so aus (danke Matthias):
<pre>
Sub SetzeFortschritt(z As Range, wert As Double, Optional max)
Dim variabel As Double
If IsMissing(max) Then max = 10
With z
.Value = String(max, ChrW(9608))
.Font.ColorIndex = 3
End With
With z.Characters(Start:=1, Length:=wert).Font
.ColorIndex = 4
End With
End Sub</pre>
~f~
Diese spreche ich über Checkboxen an:
~f~
If CheckBox9 = True Then
SetzeFortschritt Range("C" & z), 1
End If
Folgendes Problem:
Es gibt 10 Möglichkeiten URL's einzugeben (über Userform, TextBox) und zu jeder Möglichkeit kann man einmal die Checkbox anclicken.
Jetzt hat ein Partner aber z.B. nur 3 URL's und 3 mal die Checkbox angeclickt. Meine Anzeige würde mir so wie sie ist dann anzeigen, dass er nur kanpp ein drittel hat was ja falsch ist weil er 100% hat.
Ich muß also das max variabel bekommen jenachdem wieviele URL's er hat.
Mir fällt nur ein: Abfragen wieviel der Zehn Felder der URL's beschrieben sind und dann daraus das max bilden. Ich kann die Schleife aber nicht schreiben.
Kann mir jemand einen Tip geben wie ich so eine Schleife schreibe?
Viele Grüße
Sammy