Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prozentuales verteilen von Zahlen

Prozentuales verteilen von Zahlen
20.09.2004 13:22:15
Zahlen
hallo,
ich habe ein Problem ich habe vier Zahlen z.B. 50, 254, 219 und 311 und möchte diese vier Zahlen mit einer prozentualen Häufigkeit von 23%, 10%, 53% und 12% zufällig in eine Spalte schreiben! Könnt Ihr mir vielleicht helfen?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prozentuales verteilen von Zahlen
20.09.2004 14:52:10
Zahlen
Hallo Martin,
hier ein Beispiel in dem 100 Werte nach Deinen Vorgaben erzeugt werden (Spalte A).
Das Makro einfach in ein Standardmodul einfügen und ausführen:

Sub ZufallsVerteilung()
Const cintAnzahl As Integer = 99 '1 kleiner als Bedarf (Start bei 0)
Dim arrWerte() As String
Dim i%, intZufall%
'100 Werte
ReDim arrWerte(cintAnzahl)
For i = 0 To cintAnzahl
Select Case i
Case 0.33 * cintAnzahl To 0.86 * cintAnzahl: '53%
arrWerte(i) = 219
Case 0.23 * cintAnzahl To 0.33 * cintAnzahl: '10%
arrWerte(i) = 254
Case 0.86 * cintAnzahl To 0.98 * cintAnzahl: '12%
arrWerte(i) = 311
Case 0 To 0.23 * cintAnzahl: '23%
arrWerte(i) = 50
End Select
Next i
Randomize
For i = 0 To cintAnzahl
intZufall = Int((cintAnzahl - i + 1) * Rnd)
Cells(i + 1, 1).Value = arrWerte(intZufall)
arrWerte(intZufall) = arrWerte(cintAnzahl - i)
Next i
End Sub

Hoffe das hilft weiter,
Andreas
Anzeige

11 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige