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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen