Farb Codierung HEX in .Color oder .ColorIndex
10.03.2008 21:57:00
Tino
ich arbeite an einer Funktion mit der ich die Zellfarben berechnen kann.
Nun folgendes habe ich schon hinbekommen.
Zellfarbe in einen Hex Wert zu codieren (für Html cods)
Zellfarbe aus einem Hex in eine RGB Farbe
Nun fehlt mir noch etwas.
Wie kann ich einen Hex wert wieder in eine Zell-Farbe
.color oder sogar .ColorIndex für Excel umwandeln?
Habt Ihr eine lösung für mich?
Sollte es jemanden interessieren hier die beiden Funktionen:
'Zell-Farbe in Hex Wert zurückgeben
'aus Zellfarbe-zBsp: ActiveCell.Interior.Color
Function Farbe_Hexa(ByVal ZellFarb As String) As String
Dim R, G, B As String
R = Hex(ZellFarb - (ZellFarb \ 65536) * 65536 - _
((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256) * 256)
G = Hex((ZellFarb - (ZellFarb \ 65536) * 65536) \ 256)
B = Hex(ZellFarb \ 65536)
If Len(R) __________________________________________
'RGB Farbe zurückgeben aus HEX- Wert
Function Farbe_RGB(ByVal Wert As String) As String
Dim R, G, B As String
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
Gruß
Tino