Zufallsauswahl (Stichprobe)
02.10.2012 17:08:57
TobiasS
Ich habe einen Datensatz mit 190 Probanden. Hiervon möchte ich 150 per Zufallsauswahl heraussuchen. Da ich den internen Zufallszahlenalgorithmus aber nicht kenne, wollte ich mal fragen, ob der Ansatz so in Ordnung ist oder ob ich noch etwas anpassen soll.
Falls der Code ok geht, wäre eine kurze bestätigung nett, dann kann jemand anders den ja auch verwenden.
Danke schonmal!
Sub zufallsauswahl()
Dim cell As Range
Call beispiel
With Worksheets("Tabelle2")
.Range(Cells(2, 2), Cells(190, 2)).Select
For Each cell In Selection
cell = Rnd()
Next
.Range("A1:B190").Sort Key1:=.Range(Cells(1, 2), Cells(190, 2)), Header:=xlYes
.Range("A1:B150").Sort Key1:=.Range(Cells(1, 1), Cells(190, 1)), Header:=xlYes
.Range(Cells(151, 1), Cells(190, 2)).Delete
End With
End Sub
Sub beispiel()
Dim i As Integer
With Sheets("Tabelle2")
.Range("A1").Value = "Anzahl"
.Range("B1").Value = "Zufallszahlen"
For i = 2 To 190
.Cells(i, 1) = i
Next
End With
End Sub