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