Zellfarbe aus RGB Werten erzeugen

Hallo zusammen,

ich versuche folgendes Problem mit Excel 2000 zu lösen.

Ich möchte Zelle A1 mit der Farbe ausfüllen, die in den
folgen Zellen A2, A3 und A4 als RGB Code eingetragen wurde.
Also in Zelle A2 soll der Wert für Rot, in A3 der Wert für
Grün und in A4 der Wert für Blau eingetragen werden, die
Zelle A1 erzeugt die dazugehörige RGB Mischung.

Gibt es dafür eine Lösung unter Excel…?

Vielen Dank im voraus

Gruß
Klaus

Hi Klaus,

das geht theoretisch mit

Cells(1, 1).Interior.Color = RGB(Cells(2, 1), Cells(3, 1), Cells(4, 1))

Allerdings kennt Excel je Arbeitsmappe nur eine Palette mit 56 verschiedenen Farben, die kannst Du Dir mit

Sub ZeigePalette()
For i = 1 To 56
c = ActiveWorkbook.Colors(i)
Cells(i, 1).Interior.Color = c
Next
End Sub

ausgeben lassen. Mit dem RGB-Befehl nimmt Excel dann von den 56 möglichen Farben die ähnlichste. Du kannst allerdings auch die Palette ändern:

ActiveWorkbook.Colors(1) = RGB(Cells(2, 1), Cells(3, 1), Cells(4, 1))

und dann den ColorIndex von A1 auf 1 setzen:

Cells(1,1).ColorIndex = 1

Viele Grüße
Sculpture

Ich möchte Zelle A1 mit der Farbe ausfüllen, die in den
folgen Zellen A2, A3 und A4 als RGB Code eingetragen wurde.
Also in Zelle A2 soll der Wert für Rot, in A3 der Wert für
Grün und in A4 der Wert für Blau eingetragen werden, die
Zelle A1 erzeugt die dazugehörige RGB Mischung.