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