Sorry, dass ich wieder nerve, aber leider hab ich zu wenig Ahnung von XL um das Problem selbst zu lösen...
es geht darum, die Ausgabewerte dieses Makros von Jürgen in bestimmte Zellen auszugeben:
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
Das Teil soll in eine fertige Tabelle eingebettet werden und die Ausgabewerte müssen dazu in die dafür bestimmten Zellen rein...wie stelle ich das an?
Vielen Dank nochmal :)
Gruß
Konstantin