Hallo,

weiß jemand ob etwa folgendes (was im Code fett markiert ist) möglich ist:

Dim bilder As Shape
Dim alle_bilder(100)


counter = 0

For Each bilder In ActiveSheet.Shapes

If bilder.name = "*box*"
If counter = 0 Then
alle_bilder(1) = bilder.Name
counter = 1
Else
counter = counter + 1
alle_bilder(counter) = bilder.Name
End If
End If
Next bilder

Grüße

Oli