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