Shapes Gruppieren in bestimmten Bereich (Name gleich)

[Abitus]

Hat sich alles geklärt, vielen Dank nochmal Uwe!!

[snb]

Dann solltest du die  Index der Bilder verwenden:

Code:

Sub M_snb()
    ReDim sp(Sheet1.Shapes.Count)
    
    For j = 1 To Sheet1.Shapes.Count
       If Not Intersect(Sheet1.range("A1:K10"), Sheet1.Shapes(j).TopLeftCell) Is Nothing Then sp(j - 1) = j
    Next
    
    Sheet1.Shapes.Range(sp).Select
End Sub