Zufallsfunktion erweitern - Hilfe!

Sub Zufall()
Dim anz As Integer
'Letzte Zeile rausfinden
Dim loLetzte As Long
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
anz = loLetzte
Dim i As Integer, fFeld() As Long, iTemp As Integer, iZ As Integer
ReDim fFeld(anz)
For i = 1 To anz
fFeld(i) = i
Next i
For i = anz To 1 Step -1
Randomize Timer
iZ = Int((i * Rnd) + 1)
iTemp = fFeld(iZ)
fFeld(iZ) = fFeld(i)
fFeld(i) = iTemp
Next i
For i = 1 To anz
'code ausführen
'Userform.show usw......
Next i
End Sub

For i = 1 To anz
if Cells(i,1).Hintergrundfarbe = rot then
fFeld(i) = i
end if
Next i
usw...