mit folgendem Code färbe ich Formen in 4 verschiedene Farben und trage in die Zelle dann jeweils die Zahlen 1 bis 4 ein:
Sub Umfarben()
Dim Farbe(0 To 4)
Dim X
Farbe(0) = RGB(221, 235, 247)
Farbe(1) = RGB(153, 255, 102)
Farbe(2) = RGB(255, 255, 153)
Farbe(3) = RGB(255, 110, 110)
Farbe(4) = RGB(200, 200, 200)
With ActiveSheet.Shapes(Application.Caller)
With .Fill.ForeColor
X = Application.Match(.RGB, Farbe, 0)
If VarType(X) = vbError Then X = 4
X = X Mod (UBound(Farbe) + 1)
.RGB = Farbe(X)
End With
.TopLeftCell.Value = X
End With
End Sub
Nun möchte ich den "Spieß umdrehen", Idee: Man trägt in der Zelle der Form die Zahl 0,1,2,3 oder 4 ein und die Form nimmt die Farbe entsprechend an. Die Idee ist also vorhanden, bei der Umsetzung fehlen mir jedoch die Ideen, bitte um Hilfe!
Besten Dank!