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
58.4k Fragen
249k Antworten
7k Nutzer