Hi,
mit:
Dim cb As Control

For Each cb In ActiveSheet.Controls
If TypeName(cb) = isNumeric(cb.Name) Then 'es sind nur Shapes auszuwählen die heißen 1,2,3....50
cb.Fill.ForeColor.SchemeColor = 11 'grün färben
End If
Next
möchte ich jedes Shape grün färben es klappt aber (wie immer :-( ) nicht...
Wäre schön wenn mir jmd hilft.
Gruß
Micha