VBA Zufallszahlen ohne Wiederholung
26.10.2015 13:13:15
Bonduca01
ich habe in Tabelle A Spalte I Zahlen zwischen 1-2000.
In Tabelle B Spalte I sollen Zufallszahlen zwischen 1000-2000 geschrieben werden. Diese sollen nicht doppelt vorkommen und auch nicht mit den Zahlen aus Tabelle A Spalte I übereinstimmen.
Den Code, den ich habe gibt mir zwar Zufallszahlen aus, berücksichtigt aber nicht, dass keine doppelten ausgegeben werden dürfen und dass diese Zahlen nicht mit Tabelle A Spalte I übereinstimmen dürfen.
Sub Zufallszahlen_rekombination()
Dim Zahl1 As Variant
Dim Zahl2 As Variant
Untergrenze = 1000
Obergrenze = 2000
Worksheets("B").Activate
For i = 1 To 200
Randomize Timer
Sheets("B").Cells(26 + i, 9) = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
Next i
End Sub
Vielen Dank!