Das geht ActiveWorkbook.Colors(i)=RGB(....)!
geht auch RGB=ActiveWorkBook.Colors(i), also die Umformung die Farbindex
in RGB?
Gruss
Frank
Hallo,
so gehts vom Prinzip her:
Sub RGB_Farbe()
Dim Farbe As Long, R As Integer, G As Integer, B As Integer
Farbe = ActiveWorkbook.Colors(4)
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
Gruß K.Rola