Bedingte Formatierung von Objekten

[brooker]

Hallo zusammen,

ich würde gerne ein Objekt (Objekt1) bedingt formatieren. 
Bedingung: Werte in Zelle A1 ist größer oder gleich 5.

Wenn das eintrifft, soll das Objekt zu 50% transparent werden.

Ist das überhaupt möglich?

Lg

[MisterBurns]

Geht aus meiner Sicht nur mit VBA. Eine Beschreibung, um welches Objekt es sich handelt, wäre aber schon sinnvoll. Oder beschreibst du dein Auto auch nur mit "Schwarz"?

[brooker]

Code:

ActiveSheet.Shapes.Range(Array("Objekt14")).Select

Es ist einfach ein Bild. Wenn man das per Marko-Aufzeichnung auswählt kommt sowas dabei heraus.

[MisterBurns]

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Grafik As Shape
Dim Bereich As Range

Set Grafik = ActiveSheet.Shapes("Objekt14")
Set Bereich = Range("A1")

If Not Application.Intersect(Target, Bereich) Is Nothing Then
   If Bereich >= 5 Then
       With Grafik.Fill
           .Transparency = 0.5
       End With
   Else
       With Grafik.Fill
           .Transparency = 0
       End With
   End If
End If

End Sub

[snb]

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Shapes(1).PictureFormat.ColorType = 1 + Abs(2 * [A1] > 5)
End Sub