ich möchte aus einem Bereich (A1:A15000) eine bestimmte Anzahl (z.B. 399) von Werten z u f ä l l i g auswählen.
Wer kann helfen :-) ? Danke
Sub test()
Dim Anzahl, Zufall, letzte_Zeile
letzte_Zeile = 5000
Anzahl = InputBox("Wieviele Werte sollen per Zufall selektiert werden?")
For i = 1 To Anzahl
Sprung:
Zufall = Int((letzte_Zeile * Rnd) + 1)
If WorksheetFunction.CountIf(Range("C:C"), Cells(Zufall, 1)) > 0 Then
GoTo Sprung
End If
Cells(Zufall, 1).Copy Destination:=Cells(i, 3)
Next
End Sub