Form Farben per VBA ändern
24.01.2018 11:17:24
Okan
ich würde in einer Tabelle gerne eine Form mit einem Makro hinterlegen, welches folgendes Ausführen soll:
Die Farbe der Form soll sich ändern, wenn ein Bestimmter Wert in einer Zelle überschritten wird.
Dabei ist die Zelle zu suchen.
Bsp.: Wenn in Spalte A das Wort LV1000 gefunden wird soll es den Wert prüfen der 3 Spalten neben dem Wort steht.
Ich habe einen Einfachen Code genutzt, der leider nur eine vorher definierte Zelle anspricht.
Sub Farbe_LV_1000()
If CAR.Range("C22") = "n.i.O." Then
With CAR.Shapes("LV_1000").Fill
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
With CAR.Shapes("LV_1000").Fill
.ForeColor.RGB = RGB(0, 200, 0)
End With
End If
End Sub
Danke im Voraus.