860to864: Makro in bestimmte Zellen ausgeben?

Sub Zufall()
Dim Zahlen(4) As Integer ' In Klammern 1 niedriger als die Anzahl Zahlen
Dim Rest As Integer
Dim Bereich As Integer, Wert As Integer
10:
Rest = 100
For I = 0 To 3 '2 niedriger als die Anzahl Zahlen
Select Case I
Case 0 ' Wertebereich zwischen 10 und 15%
Bereich = 5
Wert = 10
Case 1 ' Wertebereich zwischen 20 und 30%
Bereich = 10
Wert = 20
Case 2 ' Wertebereich zwischen 25 und 35%
Bereich = 10
Wert = 25
Case 3 ' Wertebereich zwischen 10 und 15%
Bereich = 5
Wert = 10
Case Else
Bereich = Rest
Wert = 0
End Select
Zahlen(I) = Abs(Int((Bereich * Rnd) + Wert))
Rest = Rest - Zahlen(I)
Next I
If Rest