Registriert seit: 29.09.2015
Version(en): 2030,5
10.02.2018, 12:39
(Dieser Beitrag wurde zuletzt bearbeitet: 10.02.2018, 12:39 von snb.)
Ich verstehe nur 'Bahnhof'.
Erstelle mal bitte eines Beispiel.
Registriert seit: 13.04.2014
Version(en): 365, 2019
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%
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 29.09.2015
Version(en): 2030,5
10.02.2018, 15:38
(Dieser Beitrag wurde zuletzt bearbeitet: 10.02.2018, 15:38 von snb.)
Dann sind die meiste Felder leer.
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