RGB-Farbwert eines Farbcodes ermitteln

5.99K viewsVBA
0

Ich habe diversen Zellen verschiedene Farben zugewiesen.
Gibt es eine Möglichkeit deren RGB-Farbwert zu ermitteln?

edited answer
0

Die RGB-Funktion von VBA liefert den so genannten Red/Green/Blue-Farbwert.

 

RGB(rgb) ergibt Farbcode. Formel: r + (g × 256) + (b × 65536)

Beispiel:

RGB(24, 38, 60) ergibt 3941912. Formel: 24 + (38 × 256) + (60 × 65536)

 

Farbcode nach RGB zurückrechnen:

Rot-Wert: (Farbcode Mod 65536) Mod 256

Grün-Wert: Fix((Farbcode Mod 65536) / 256)

Blau-Wert: Fix(Farbcode / 65536)

 

.VBA-Code 
Public Sub GetRGBOfColorCode()
Dim lngColor As Long
  lngColor = 9856050
  MsgBox „RGB-Werte von Farbcode “ & lngColor & vbCrLf & vbCrLf & _ 
     „R: “ & (lngColor Mod 65536) Mod 256 & vbCrLf & _ 
     „G: “ & Fix((lngColor Mod 65536) / 256) & vbCrLf & _ 
     „B: “ & Fix(lngColor / 65536)
End Sub

edited answer