Sub zf()
ActiveWorkbook.Colors(56) = RGB([a1], [b1], [c1])
ActiveSheet.[d1].Interior.ColorIndex = 56
End Sub
Option Explicit
Private Sub FarbenErzeugen()
Dim Zeile As Range
Dim r As Long
Const c = 4 'Spalte, in der die Farben angezeigt werden sollen
'For each Zeile in Range("A1:A20") oder
For Each Zeile In UsedRange.Rows 'alle beschriebenen Zeilen
r = Zeile.Row
If IsNumeric(Cells(r, 1) + Cells(r, 2) + Cells(r, 3)) Then
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", _
DisplayAsIcon:=False, Left:=Cells(r, c).Left, Top:=Cells(r, c).Top, _
Width:=Cells(r, c).Width, Height:=Cells(r, c).Height)
.Name = "Farbe" & CStr(r)
.Object.Caption = ""
'Farbwerte stehen in Spalte 1,2 und 3
.Object.BackColor = RGB(Cells(r, 1), Cells(r, 2), Cells(r, 3))
End With
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'nur, wenn Werte im bestimmten Bereich geändert
If Intersect(Target, Range("A1:C20")) Is Nothing Then Exit Sub
On Error Resume Next
ActiveSheet.OLEObjects("Farbe" & Target.Row).Object.BackColor = RGB(Cells(Target.Row, 1), Cells(Target.Row, 2), Cells(Target.Row, 3))
End Sub
Sub FarbenLöschen()
Dim obj
For Each obj In ActiveSheet.OLEObjects
If obj.Name Like "Farbe*" Then obj.Delete
Next
End Sub