Office: Zufallsfarben

Hallo liebe leute ich habe ein problem und hoffe auf schnelle antwort

folgende situation:

ich habe bestimmte farben (die der widerstände) und muss nun ein makro entwerfen was mir zufällig eine dieser bestimmten farben rausgibt allerdings ist mir nicht ganz klar wie das in VBA zu schaffen ist habe alles versucht gruß marvin
ps vielen dank an alle die sich die mühe machen sich damit zu beschäftigen

:)

 

Hallo,

 

hey vielen dank für die schnelle hilfe allerdings scheint es immernochnicht zu funktionieren ich habe es wie folgt "abgeschrieben"

Sub Farbenändern()

Dim RandomColor

Range("b19").Select

RandomColor = Choose(Int((10 - 1 + 1) * Rnd + 1), 1, 53, 3, 46, 6, 4, 5, 13, 44, 48, 16, 2)
End Sub

und dennoch wird die zelle nur blau
gruß marvin

 

ich muss korrigieren die zelle wird nciht blau sondern verändert sich die farbe garnicht

 

Moin, Mrbelbedair,

wenn ich den Code richtig verstehe, wird auch nirgends Range("B29").Interior.ColorIndex = lngColor verändert...

 

Hallo Mavin,

du must natürlich den Colorindex dann auch der Zelle zuweisen:

 

So funktioniert prächtig vielen dank für die schnelle hilfe