Variable Stichprobenziehung
19.08.2018 19:37:29
Barhos
ich brauche eure Hilfe bei folgendem:
Ich habe ein Makro erstellt, bei dem man eine Stichprobe aus einer Grundgesamtheit (Zelle C2:N25) ziehen kann.
Beispielsweise werden mir alle Inhalte der Zelle XY angezeigt.
Problem ist, dass ich das Makro variabel gestalten will, sprich in eine Eingabemaske soll die Anzahl der Stichproben eingegeben werden können. Momentan ist die Anzahl aber fest.
Das Makro sieht so aus:
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
With Sheets("Tabelle1").Range("O2:O11")
.FormulaLocal = "=SVERWEIS(B2;A:C;3;FALSCH)"
.Value = .Value
End With
With Sheets("Tabelle1").Range("P2:P11")
.FormulaLocal = "=SVERWEIS(B2;A:D;4;FALSCH)"
.Value = .Value
End With
With Sheets("Tabelle1").Range("Q2:Q11")
.FormulaLocal = "=SVERWEIS(B2;A:E;5;FALSCH)"
.Value = .Value
End With
With Sheets("Tabelle1").Range("R2:R11")
.FormulaLocal = "=SVERWEIS(B2;A:F;6;FALSCH)"
.Value = .Value
End With
With Sheets("Tabelle1").Range("S2:S11")
.FormulaLocal = "=SVERWEIS(B2;A:G;7;FALSCH)"
.Value = .Value
End With
With Sheets("Tabelle1").Range("T2:T11")
.FormulaLocal = "=SVERWEIS(B2;A:H;8;FALSCH)"
.Value = .Value
End With
With Sheets("Tabelle1").Range("U2:U11")
.FormulaLocal = "=SVERWEIS(B2;A:I;9;FALSCH)"
.Value = .Value
End With
With Sheets("Tabelle1").Range("V2:V11")
.FormulaLocal = "=SVERWEIS(B2;A:J;10;FALSCH)"
.Value = .Value
End With
Sheets("Tabelle1").Range("A2:A25").ClearContents
Application.ScreenUpdating = True
End Sub
Habt ihr einen Vorschlag, wie man das Gante variabel gestalten könnte?