Dennis möchte drei Zellen (A1: A3) mit RGB-Werten füllen und eine andere Zelle (C1) die Farbe basierend auf diesen Werten anzeigen lassen. Er fragt sich, ob es einen einfachen Weg gibt, dies zu tun.

Der einfachste Weg, dies zu tun, besteht darin, ein Makro zu verwenden, das die Werte in A1: A3 erfasst und dann die Farbe der Zelle C1 basierend auf diesen Werten ändert.

Im Idealfall sollte das Makro überprüfen, ob die Werte in den Quellzellen im Bereich von 0 bis 255 liegen. Das folgende Makro eignet sich hervorragend für diesen Zweck:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A3")) Is Nothing Then         lRed = Abs(Range("A1").Value) Mod 256         lGreen = Abs(Range("A2").Value) Mod 256         lBlue = Abs(Range("A3").Value) Mod 256

Range("C1").Interior.Color = _           RGB(lRed, lGreen, lBlue)

End If End Sub

Beachten Sie, dass dieses Makro dem Code für das Arbeitsblatt hinzugefügt werden sollte, auf dem die Zellen vorhanden sind. (Klicken Sie einfach mit der rechten Maustaste auf die Registerkarte „Blatt“, wählen Sie „Code anzeigen“ und fügen Sie dort das Makro hinzu.) Es handelt sich um eine Ereignisbehandlungsroutine, die bei jeder Änderung in Zelle A1, A2 oder A3 automatisch ausgeführt wird.

Es wird sichergestellt, dass die Werte in diesen Zellen zwischen 0 und 255 liegen, indem der Absolutwert des Zellinhalts verwendet und der Rest (Modulo)

verwendet wird durch 256 zu teilen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9090) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

RGB-Farben in einer Zelle anzeigen.