AW: noch zwei Zufälle
13.03.2009 00:10:24
Erich
Hi Jakob,
hier noch zwei Varianten, von Nepumuk und Uwe (ingUR):
Sub Zufallsliste5() ' Zahlen 1 bis Anzahl ohne Wiederholungen, ingUR (Uwe) 04.12.2006
' www.herber.de/forum/archiv/824to828/t825988.htm
Const Anzahl = 64
Dim arrZ(1 To Anzahl) As Long, arrOK(1 To Anzahl) As Boolean
Dim ii As Long, iLosNr As Long
Randomize
For ii = 1 To Anzahl
Do
iLosNr = Int((Anzahl * Rnd) + 1)
If arrOK(iLosNr) = False Then arrZ(ii) = iLosNr: arrOK(iLosNr) = True
Loop Until arrZ(ii) > 0
Next
Cells(1, 2).Resize(Anzahl) = WorksheetFunction.Transpose(arrZ)
End Sub
' www.herber.de/forum/archiv/252to256/t255056.htm#255062
' www.herber.de/forum/archiv/676to680/t678590.htm#678719
' www.herber.de/forum/archiv/684to688/t685032.htm#685171
Sub Zufallsliste8() ' von Nepumuk
Const Anzahl = 64
Dim ii As Long, arrZ(1 To Anzahl) As Long, jj As Long, zz As Long
For ii = 1 To Anzahl
arrZ(ii) = ii
Next ii
For ii = Anzahl To 1 Step -1
Randomize Timer
zz = Int((ii * Rnd) + 1)
jj = arrZ(zz)
arrZ(zz) = arrZ(ii)
arrZ(ii) = jj
Next ii
Cells(1, 2).Resize(Anzahl) = WorksheetFunction.Transpose(arrZ)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort