FAQ Excel – RGB Farbberechnung

Problem

Im Excel gibt es zwei Farbsysteme, eines mit dem Color Index, den nur Excel verwendet, daher konzentrieren wir uns in der Folge um die so genannten RGB Farben. Über die Farbeigenschaften gelangen wir in die weiteren Farben.

Lösung

Neben der Einstellung an der Oberfläche können wir das auch mit VBA setzten

Diese Farbeinstellung können wir per VBA setzten.

ActiveCell.Interior.Color = RGB(255, 67, 0)

Interessanterweise wird dabei in der Zelle eine einzelne Zahl gespeichert, in diesem Falle „liegt“ in der Zelle der Wert 17407. Dabei wird die erste Farbe mit 1, die zweite Farbe mit 256 und die dritte Farbe mit 256×256 multipliziert.

Umgekehrt kann man auch aus der ausgelesenen Zelleigenschaft die drei Farbkanäle berechnen.

Sub Farbberechnung()

Dim Farbe As Long, rot As Long, gruen As Long, blau As Long

'*** Lese den Farbwert aus der Zelle heraus ***

Farbe = ActiveCell.Interior.Color

'*** Mod = Zum Dividieren von zwei Zahlen und nur der Rest zurückgegeben ***

rot = Farbe Mod 256

Farbe = (Farbe - rot) / 256

gruen = Farbe Mod 256

Farbe = (Farbe - gruen) / 256

blau = Farbe Mod 256

End Sub