Clever-Excel-Forum

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

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"?

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

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

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

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

    Shapes(1).PictureFormat.ColorType = 1 + Abs(2 * [A1] > 5)

End Sub

brooker

MisterBurns

brooker

MisterBurns

snb