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.