Zufallsauswertung

[Peggymaus]

Hallo,

habe in einer Excel-Liste in Spalte H ca. 4000 verschiedene Werte (Stück). Gesamtsumme ca. 60 Mio. Stück

Nun soll mir Excel ca. 30-40 Zufallswerte markieren, (kann auch mittels einer Hilfsspalte erfolgen) welche in der Summe ca 10% der Gesamtsumme ergeben.

Das Ganze wird für eine Stichprobeninventur benötigt.

Hoffe mir kann da jemand helfen.

LG.

Peggy

[Fennek]

Hallo,

m.E. widersprechen sich beide Anforderungen

- 30-40 Werte zufällig auswählen
- 10% aller Werte

Wie wäre es mit einer "Klumpen-Stichprobe":

- vernünftige Kategorien bilden ("Große" "Mittlere", "Kleine"
- in jeder Gruppe eine Zufallsauswahl

Beschreibe bitte wie die Verteilung der Werte ist? ("Schiefe")

Zeige bitte eine kleine Beispieldatei.

mfg

[RPP63]

Moin!
Interessantes Problem!
Zunächst sind 10% von "ca. 4000" ca. 400!

Vorbereitung:
[I2:I4000] =ZUFALLSZAHL()
kopieren und als Wert einfügen.

[J2:J4000] =RANG(I2;I$2:I$4000)

Ab jetzt dann VBA:

Sub Ten_Percent()
Dim StopSum&
Dim SubTot&
Dim i&: i = 1
Dim k&
Application.ScreenUpdating = False
With Tabelle1
  StopSum = WorksheetFunction.Sum(.Columns("H")) / 10
  Do While SubTot < StopSum
    k = WorksheetFunction.Match(i, .Columns("J"), 0)
    .Cells(k, "K") = "x"
    SubTot = SubTot + .Cells(k, "H")
    i = i + 1
  Loop
End With
End Sub

Nun könntest Du nach x in Spalte K filtern und hast ca. 10% Deines Bestands abgedeckt.

Gruß Ralf

[Peggymaus]

Vielen herzlichen Dank.

Klappt super.



LG.

Peggy