Zufallsfunktion erweitern - Hilfe!
Henrik
Ich habe folgende Sub:
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
Super Funktion, sie ermittelt eine zufällige Zahl und wiederholt keine in dem Bereich von 1 bis anz - bis alle einmal durch sind.
Ich möchte jetzt aber einen Bereich ausschließen, nur Zeilen die rot sind, sollen im Zufallsgenerator übernommen werden.
Also etwa so:
For i = 1 To anz
if Cells(i,1).Hintergrundfarbe = rot then
fFeld(i) = i
end if
Next i
usw...
Gruß Henrik