Excel Tabellen

Question

hallo ihr, ein frohes neues!!

ich habe in meiner excel tabelle objekte "Rectangle". ich würde die gerne per makro bei einer bestimmten bedingung die Farbe ändern lassen..

geht es, das man diese Objekte ansrpicht?

Danke

Answer 1

Hi,

Mal so durchgehangelt:

Sub RechteckeFärben()
Dim objSH As Shape

For Each objSH In ActiveSheet.Shapes 'für jedes ShapeObject
If objSH.AutoShapeType = msoShapeRectangle Then 'wenn vom Typ "Rechteck"
If ActiveSheet.Range("A1").Value = 1 Then 'wenn in A1 "1" steht
objSH.Fill.ForeColor.RGB = RGB(0, 0, 255) 'färbe Blau
Else 'sonst
objSH.Fill.ForeColor.RGB = RGB(0, 255, 0) 'färbe grün
End If 'Ende wenn A1
End If 'Ende wenn Typ Rechteck
Next 'nächstes ShapeObject
End Sub

bye
malSchauen

Answer 2

danke für die Antwort.. :-)
ich werde es mal ausprobieren..