Farben ?

[keksi1970]

Hi,
wie bekomme ich aus einem long-Wert (BSP : 16711680) den RGB-FarbCode ?

lg Andreas

[turtle47]

Hallo Andreas,

wie wäre es damit:

Code: Alles auswählen

Sub RGB_Farbe_ermitteln
farben = 167154368 
f1 =  "RGB-Farben: " & red(farben) & "," & green(farben) & "," & blue(farben)
msgbox f1
end sub

Schöne Grüsse.

Jürgen

[keksi1970]

es kann so einfach sein

Danke Jürgen, aber diese Frage war nur dämlich :

ich setze Backgroundcolor mit RGB(X,X,X)

und nach dem testen kann ich den long-Wert einfach mit RGB vergleichen

Code: Alles auswählen

farben = 167154368 
if farben = RGB(255, 0, 0) then

ich dachte ich müsste kompliziert denken

lg
Andreas