Sub Farben()
Dim z As Long
Dim r, g, b As Integer 'RGB-FarbInformationen
Dim c, d, e As String  'Hexa-FarbInformationen
z = farbeRGB
b = z \ 65536 'RGB - Blau
g = (z - b * 65536) \ 256 'RGB - Grün
r = z - b * 65536 - g * 256 'RGB Rot
e = Hex(r) 'Hexi - Rot
c = Hex(g) 'Hexi - Grün
d = Hex(b) 'Hexi - Blau
If Len(e) < 2 Then e = "0" & e 'Rot Hexa-2stellig
If Len(c) < 2 Then c = "0" & c 'Grün Hexa-2stellig
If Len(d) < 2 Then d = "0" & d 'Blau Hexa-2stellig
farbeHexa = "#" & e & c & d
End Sub