VBA Backcolor in CommandButton führt zu Fehlern

[snb]

Ich verstehe nur 'Bahnhof'.

Erstelle mal bitte eines Beispiel.

[BoskoBiati]

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%

[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