Farben in RGB umrechnen
12.05.2008 12:52:00
Jochen
ich verwende aus dem Archiv folgenden Code.
Sub RGB_Farbe()
Dim Farbe As Long, R As Integer, G As Integer, B As Integer
Farbe = ActiveCell.Interior.Color
R = Farbe And 255
G = (Farbe \ 256) And 255
B = Farbe \ 65536
MsgBox "Rot: " & R & Chr(10) & "Grün: " & G & Chr(10) & "Blau: " & B
End Sub
Ich möchte ihn aber auch verstehen, diese beiden zeilen sind mir unklar, was
bewirkt denn dieses And?
R = Farbe And 255
G = (Farbe \ 256) And 255
Danke schon mal und schönen tage allerseits.
mfg Jochen