VBA-Zufallszahlen generieren

Hallo Leute,
die Zellen A2, C2, E2, G2, I2 sollen jeweils willkürlich ermittelte Farben (rot, grün, blau, magenta, schwarz, grau, gelb oder orange) die mit einem Zufallsgenerator erzeugt werden, annehmen. Wenn sich aus den 8 genannten Farben eine willkürliche Farbfolge nicht ermitteln lässt, wäre auch eine Ermittlung von Zufallszahlen die anschließend in Farben "umgerechnet" werden, ausreichend.
Es sollte aber wahlweise möglich sein, doppelte Farben zuzulassen bzw. auszuschließen.
Der bislang eingesetzten Zufallsgenerator ist zwar im Prinzip ausreichend, lässt aber keine Möglichkeit Doppelungen zuzulassen bzw. auszuschließen:
Set Bereich = Range("A2:I2")


For Each Zelle In Bereich
Zelle.Value = Int((8000 * Rnd) + 1)
Next Zelle

mfg
reiner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub test() Dim arr(8000), y(100) Dim x As Long Randomize Timer For x = 1 To 8000 arr(x) = Rnd Next x For x = 1 To 100 y(x) = WorksheetFunction.Match(WorksheetFunction.Small(arr, x), arr, 0) Next x MsgBox y(1) End Sub

Sub test() Dim arr(7), y(7) Dim x As Long, Farbe As Long Randomize Timer For x = 0 To 7 arr(x) = Rnd Next x For x = 0 To 4 y(x) = WorksheetFunction.Match(WorksheetFunction.Small(arr, x + 1), arr, 0) Select Case y(x) Case 1: Farbe = 3 Case 2: Farbe = 6 Case 3: Farbe = 12 Case 4: Farbe = 20 Case 5: Farbe = 30 Case 6: Farbe = 40 Case 7: Farbe = 50 Case 8: Farbe = 53 End Select y(x) = Farbe Next x For x = 0 To 4 Cells(5, (x + 1) * 2 - 1).Interior.ColorIndex = y(x) Next x End Sub

Hi Reiner,

Sub test()
Dim arr(7), y(7), z As Long
Dim x As Long, Farbe As Long
Randomize Timer
'8 Zufallszahlen erzeugen und in arr speichern
For x = 0 To 7
arr(x) = Rnd
Next x
'aus den 8 Zufallszahlen die Positionen der 5 kleinsten in y speichern
For x = 0 To 4
y(x) = WorksheetFunction.Match(WorksheetFunction.Small(arr, x + 1), arr, 0)
'und anhand der Position 1 bis 8 eine Farbe zuweisen
Select Case y(x)
Case 1: Farbe = 3
Case 2: Farbe = 6
Case 3: Farbe = 12
Case 4: Farbe = 20
Case 5: Farbe = 30
Case 6: Farbe = 40
Case 7: Farbe = 50
Case 8: Farbe = 53
End Select
y(x) = Farbe
Next x
'Zellen mit den 5 Farben färben
For x = 0 To 4
Cells(5, (x + 1) * 2 - 1).Interior.ColorIndex = y(x)
Next x
'per Zufall eine Farbe doppelt vergeben
z = Int(5 * Rnd)
Do
t = Int(5 * Rnd)
Loop Until t  z
Cells(5, (t + 1) * 2 - 1).Interior.ColorIndex = y(z)
End Sub

VG, Boris

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Zufallszahlen generieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread