Hi Oli,

versuche es mit folgendem Code

Sub Makro2()
    Dim bilder As Shape
    Dim alle_bilder()
    Dim counter As Integer
    counter = 0
    For Each bilder In ActiveSheet.Shapes
        If bilder.Type = 17 Then
            ReDim Preserve alle_bilder(0 To counter)
            alle_bilder(counter) = bilder.Name
            counter = counter + 1
        End If
    Next bilder
    ActiveSheet.Shapes.Range(alle_bilder).Select
End Sub

Bis später,
Karin

Also es ist jetzt sicher nicht verwunderlich für dich, aber es funktioniert :)

Meine Frage die bleibt: "Wieso funktioniert es?"

Erst habe ich Redim weggelassen, was nicht funktioniert hat.

Mein Gedanke war, dass Ihm vielleicht die Array Dimension fehlt. Also habe ich das Array auf 50 gesetzt. Hat auch nicht funktioniert.

Dann dachte ich, dass die Range methode die leeren Arrayzellen versucht auch anzuwählen oder einfach misinterpretiert. Also habe ich das Array auf 3 gesetzt, weil ich drei Shapes habe, die ich selektieren möchte. Hat auch nicht funktioniert.

Das Redim preserve ist doch eigentlich nur dafür da das Array von der Größe her anzupassen oder!?

Viele Grüße

Oli

Hi Oli,

in meinem Code bin ich davon ausgegangen, dass nicht bekannt ist, wie viele Bilder sich in deiner Tabelle befinden, weshalb ich ein nach oben offenes Array verwendet habe.

In deinem Code ist folgender Fehler: jedes Array beginnt bei 0, du schreibst jedoch das erste Bild nicht auf 0 sondern auf 1. Wenn du diese Codezeile vor das Makro schreibst

Option Base 1

sollte es eigentlich funktionieren.

Bis später,
Karin