Mit diesem Code kann man die Farbe auslesen:

Farbe = Worksheets("Beispiel").Cells(1,1).Interior.Color
On Error Resume Next
Rot = Farbe Mod 256
Farbe = (Farbe - Rot) / 256
Gruen = Farbe Mod 256
Farbe = (Farbe - Gruen) / 256
Blau = Farbe Mod 256
On Error GoTo 0

Beschreibung: Dieser Programmcode ermittelt die aktuelle Hintergrundfarbe einer Zelle und die zugehörigen RGB-Werte.

Worksheets(Beispiel).Cells(2,1).Interior.Color = RGB(Rot, Gruen, Blau)

Beschreibung: Dieser Programmcode setzt die aktuelle Zellfarbe auf die vorher ermittelten RGB-Werte.

Teilen