Nummerierung mit Zufallszahlen
04.11.2017 18:51:41
Spenski
Ich bin im Netz auf diesen Code gestoßen.
Dieser Code Nummeriert ab A1 250 Zahlen zufällig ohne Doppelte Werte durch.
Meine Frage
Kann man die 250 durch den Zelleninhalt von sheet1 Zelle B1 ersetzen? Und wenn ja könnte mir jemand dabei helfen?
Sub mcs()
Dim arListe(1 To 250) As Integer
Dim i As Integer, r As Integer
'Index belegen
For i = 1 To 250
arListe(i) = i
Next i
Dim arOut(1 To 250, 1 To 1)
'Ausgabe-Array zufällig belegen
For i = 250 To 1 Step -1
r = Int((i * Rnd) + 1)
arOut(i, 1) = arListe(r)
arListe(r) = arListe(i)
Next i
'Ausgeben
Range("A1").Resize(UBound(arOut)) = arOut
End Sub
Chris
Anzeige