Prozentual Werte hinzufügen

Hallöchen,
ich sitze hier grade vor einem kleinen Logikproblem.
Ich habe Werte, denen ein Prozentsatz zugehört.

[0]|48.7179487179487|WERT1
[1]|17.9487179487179|WERT2
[2]|2.56410256410256|WERT3
[3]|5.12820512820513|WERT4
[4]|25.6410256410256|WERT5´

Diese Werte werden ständig neu berechnet, also nutzt sie nur als Beispiel
Jetzt muss ich diese Werte nach den prozentwerten verteilen, aber nicht in einer bestimmten Reihenfolge, (48x den Wert, 17x den nächsten) sondern in einer zufälligen Reihenfolge.
Die Werte können nicht im nachhinein "gemischt" werden.
Hat da jemand eine Idee?

Habs jetzt etwas umständlich gelöst
Nochmal zur Erklärung, ich habe die Werte und die dazugehörigen Prozente.
Jetzt möchte ich "zufällig" 100 Variablen einen Wert zuweisen, aber mit beachtung der Prozentwerte.
Also eben nicht

48xWert1, 17xWert2, 2xWert3, 5xWert4, 25xWert5 sondern ungefähr so
2xWer1, 3xWert2,5xWert1, 1xWert4, 2xWert5,9xWert1 usw.

Habe es jetzt so gelöst:

$full = 100
For $i = 1 To UBound($Werte) - 1
$Werte[$i][2] = ($Werte[$i][1] / $Alle_werte) * 100 ; Berechnet den Prozentwert
$Werte[$i][4] = $full - Round($Werte[$i][2], 2) ; untere Grenze
$Werte[$i][5] = $full ;obere grenze
$full -= Round($Werte[$i][2], 2)
Next

Die Prozentzahl wird von 100 abgezogen, der entstehende Wert ist damit die untere grenze, obere grenze ist 100. Dann wird der Prozentsatz von 100 abgezogen, um die neue Obergrenze für den nächsten Wert zu stellen.

Jetzt kann ich mit

Random(0, 100)

einen Wert "zufällig" erstellen, wenn dieser zwischen der Ober- und Untergrenze liegt, wird der entsprechende Wert zurückgeliefert.

Habe es mit 100000 Werten durchlaufen lassen und die Ergebnisse sind Prozentual richtig (ca. natürlich ) aber eben willkürlich verteilt, genauso wie es sein soll (bei mir zumindest ^^)