Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bedingte Formatierung von Objekten
#1
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
Antwortento top
#2
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"?
Schöne Grüße
Berni
Antwortento top
#3
Code:
ActiveSheet.Shapes.Range(Array("Objekt14")).Select

Es ist einfach ein Bild. Wenn man das per Marko-Aufzeichnung auswählt kommt sowas dabei heraus.
Antwortento top
#4
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
Schöne Grüße
Berni
Antwortento top
#5
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Shapes(1).PictureFormat.ColorType = 1 + Abs(2 * [A1] > 5)
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste