10.02.2018, 12:39
10.02.2018, 12:51
Hi,
da gibt es kein Beispiel. Es werden 61 Zufallszahlen zwischen 1 und 200 erzeugt. Jede Zahl fällt in einen Bereich. Danach werden anhand der Liste "Waren" auf das entsprechende Feld gelegt (oder es ist 'Empty'). Die beiden Listen aus meinem vorhergehenden Beitrag zeigen, was für das gesamte Feld verfügbar ist. Je größer der Zahlenbereich ist, umso größer ist die Wahrscheinlichkeit, dass eine Zahl daraus gezogen wird und das Feld entsprechend belegt wird. Für Wasteland sind die Wahrscheinlichkeiten für Empty bei ca. 50%, für card bei ca. 5%
da gibt es kein Beispiel. Es werden 61 Zufallszahlen zwischen 1 und 200 erzeugt. Jede Zahl fällt in einen Bereich. Danach werden anhand der Liste "Waren" auf das entsprechende Feld gelegt (oder es ist 'Empty'). Die beiden Listen aus meinem vorhergehenden Beitrag zeigen, was für das gesamte Feld verfügbar ist. Je größer der Zahlenbereich ist, umso größer ist die Wahrscheinlichkeit, dass eine Zahl daraus gezogen wird und das Feld entsprechend belegt wird. Für Wasteland sind die Wahrscheinlichkeiten für Empty bei ca. 50%, für card bei ca. 5%
10.02.2018, 15:38
Dann sind die meiste Felder leer.
Es könnte so gehen:
Es könnte so gehen:
Code:
With Tabelle1
.[K1:K201] = "=rand()"
sp = [index(rank(T_OLE!K1:K201,T_OLE!K1:K201)-1,)]
st = [index(rank(T_OLE!K1:K61,T_OLE!K1:K61)-1,)]
.[K1:K201].ClearContents
End With
sn = Tabelle2.Cells(1).CurrentRegion.Resize(201)
y = Int(6 * Rnd() - 0.001) + 1
For j = 0 To 60
Tabelle1.Shapes("C_" & Format(j, "00")).Fill.ForeColor.RGB = RGB(200, 200, 200)
With Tabelle1.Shapes("T_" & Format(j, "00")).TextFrame.Characters
.Text = sn(sp(j + 1, 1) + 1, y)
.Font.Color = RGB(0, 0, 0)
End With
Next
For j = 1 To 17
Tabelle1.Shapes("C_" & Format(st(j, 1), "00")).Fill.ForeColor.RGB = IIf(j < 13, RGB(0, 0, 255), IIf(j < 17, RGB(200, 100, 0), RGB(100, 100, 100)))
Tabelle1.Shapes("T_" & Format(st(j, 1), "00")).TextFrame.Characters.Font.Color = RGB(255, 255, 255)
Next