Hallo, folgendes Ausgangslage:
- es besteht eine Grundgesamtheit in den Zellen C2:N25
Ziel ist eine Stichprobenziehung, deren Umfang nicht fest sein soll, sondern über eine Eingabemaske variabel gestaltet werden kann. Über Vorschläge würde ich mich sehr freuen.
Über den unten aufgeführten Code bin ich leider nicht weitergekommen.
Public Sub stichprobe()
Application.ScreenUpdating = False
With Sheets("Tabelle1").Range("A2:A25")
.FormulaLocal = "=ZUFALLSZAHL()"
.Value = .Value
End With
With Sheets("Tabelle1").Range("B2:B25")
.FormulaLocal = "=KGRÖSSTE(A2:A25;ZEILE())"
.Value = .Value
End With
|