ich habe in A1:A20 verschiedene Zahlen stehen.Diese Zahlen sind jedesmal anders. Nun möchte ich mit Randomize diese Zahlen in C1:C20 eintragen,am besten noch so das jede Zahl nur einmal vorkommt.
Besten dank im vorraus.
MfG Peter
Sub abc()
Dim ZufallsWert As Integer, i As Integer, MyFeld(1 To 20) As Boolean
Randomize 'Zufallszahlengenerator über Timer initialisieren.
i = 0
Do
ZufallsWert = Int((20 * Rnd) + 1) ' Zufallszahlen im Bereich von 1 bis 20 generieren.
If Not (MyFeld(ZufallsWert)) Then
MyFeld(ZufallsWert) = True
i = i + 1
Cells(i, 3).Value = Cells(ZufallsWert, 1).Value
End If
Loop Until i = 20
End Sub