Doppelte Werte verhindern?

18/01/2009 - 19:34 von Peter Schürer | Report spam
Hallo Zusammen,

XL2002

Über folgenden Code trage ich im Bereich "C2:G2" Zufallszahlen ein. Dabei
ist "Og" die Obergrenze.

Wert1 = Int((Og * Rnd) + 1)
Wert2 = Int((Og * Rnd) + 1)
Wert3 = Int((Og * Rnd) + 1)
Wert4 = Int((Og * Rnd) + 1)
Wert5 = Int((Og * Rnd) + 1)
Range("C2").Value = Wert1
Range("D2").Value = Wert2
Range("E2").Value = Wert3
Range("F2").Value = Wert4
Range("G2").Value = Wert5

Wie kann ich jetzt verhindern das Zahlen doppelt eingetragen werden?
Bin dankbar für jeden Tipp.

MfG
Peter
 

Lesen sie die antworten

#1 Bernd P
18/01/2009 - 20:17 | Warnen spam
Hallo Peter,

da habe ich UniqRandInt fuer geschrieben:
http://www.sulprobil.com/html/uniqrandint.html

Viele Gruesse,
Bernd

Ähnliche fragen