ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Schaltfläche 10" Then
MsgBox "Button ist da"
Exit For
Else
MsgBox "nicht da "
End If
Next shShape
mfg walli