ich würde sagen die Farbe ist grau
16.07.2008 21:40:38
Tino
Hallo,
also ich würde sagen dies kommt einem Grau ganz nah!
Hier der verwendete Code:
Option Explicit
Const HexW As String = "9AACC2"
Sub Test()
Dim mRGB() As String
Range("A1") = Farbe_RGB(HexW)
mRGB = Split(Range("A1"), "-")
Range("B1").Interior.Color = RGB(mRGB(0), mRGB(1), mRGB(2))
Range("A2") = FarbeHex_In_Color(HexW)
Range("B2").Interior.Color = Range("A2")
Range("A3") = Farbe_Hexa(Range("B1").Interior.Color)
End Sub
'RGB Farbe zurückgeben aus HEX Wert########################
Function Farbe_RGB(ByVal Wert As String) As String
Dim R$, G$, B$
Wert = Replace$(Wert, "#", "")
R = CDec("&H" & Mid$(Wert, 1, 2))
G = CDec("&H" & Mid$(Wert, 3, 2))
B = CDec("&H" & Mid$(Wert, 5, 2))
Farbe_RGB = R & "-" & G & "-" & B
End Function
'Color Farbe zurückgeben aus HEX Wert#####################
Function FarbeHex_In_Color(ByVal Wert As String) As Long
Dim R&, G&, B&
Dim X As Long
Wert = Replace$(Wert, "#", "")
R = CDec("&H" & Mid$(Wert, 1, 2))
G = CDec("&H" & Mid$(Wert, 3, 2))
B = CDec("&H" & Mid$(Wert, 5, 2))
X = R + (B * 65536 + G * 256)
FarbeHex_In_Color = X
End Function
'Color in Hex Wert
Function Farbe_Hexa(ByVal ZellFarb As Long) As String
Dim R$, G$, B$
B = ZellFarb \ 65536
G = (ZellFarb - B * 65536) \ 256
R = ZellFarb - B * 65536 - G * 256
R = Hex(R)
G = Hex(G)
B = Hex(B)
If Len(R)
Gruß Tino
www.VBA-Excel.de