Registriert seit: 25.04.2016
Version(en): 2010
06.03.2017, 08:45
(Dieser Beitrag wurde zuletzt bearbeitet: 06.03.2017, 08:52 von Abitus.)
Hat sich alles geklärt, vielen Dank nochmal Uwe!!
Registriert seit: 29.09.2015
Version(en): 2030,5
06.03.2017, 10:20
(Dieser Beitrag wurde zuletzt bearbeitet: 06.03.2017, 10:20 von 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