Form mit Farbe aus Zelle formatieren

[Ben1234]

Hallo Uwe,

der Wahnsinn das klappt perfekt wie ich es dir beschrieben habe.

Nur noch eins. Wenn ich den Wert beispielsweise in A1 ändere bekommt A2 durch die bedingte Formatierung eine andere Farbe. Kann man das auch irgendwie einbauen. Das Problem wird sein, dass sich ja der Wert nicht ändert. Gibt es da auch eine Lösung?

Gruß Ben

[Kuwer]

Hallo Ben,

mach es einfach so:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
  Case "A1", "A2", "A3"
    Me.Shapes("abc").Fill.ForeColor.RGB = Target.DisplayFormat.Interior.Color
    Me.Shapes("def").Fill.ForeColor.RGB = Target.DisplayFormat.Interior.Color
    Me.Shapes("ghi").Fill.ForeColor.RGB = Target.DisplayFormat.Interior.Color
End Select
End Sub

Gruß Uwe