OpenOffice.info

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

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]farben = 167154368
if farben = RGB(255, 0, 0) then[/code]

ich dachte ich müsste kompliziert denken

lg
Andreas

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

Hallo Andreas,

wie wäre es damit:
[code]Sub RGB_Farbe_ermitteln
farben = 167154368
f1 = "RGB-Farben: " & red(farben) & "," & green(farben) & "," & blue(farben)
msgbox f1
end sub[/code]

Schöne Grüsse.

Jürgen

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

lg Andreas