Office: VBA Shapes Type ändern/zuweisen

Hallo ForumsFreunde,

ich habe einen Code teils selbst/teils gefunden zusammengebastellt zur TextSuche in Shapes (Textfeldern) und es läuft bis auf einige Male gut, danach wenn ich ein neues Shape (Textfeld) einfüge, gibt Excel eine Fehlermeldung "Laufzeitfehler 438 Objekt unterstützt diese eigenschaft oder Methode nicht"

DebugPrint zeigt mir, dass der Shape type zuerst bei 17 läuft und alles ist gut, dann auf 28 springt und da kommt der Fehler.

Hat jemand da ein Rat für mich, ob es Möglichkeit gibt dem zu sagen den gleichen Type zu verwenden oder den Shape type anzuweisen?

Ich wäre sehr dankbar, da das Programm bis zu diesem Punkt perfekt funktioniert...
Freundliche Grüße
Belli


unten der Code

Sub Suche_in_Forms()
Dim objShp As Shape, objWS As Worksheet
Dim strSearch As String
strSearch = Range("A3").Value

If strSearch <> "" Then
For Each objWS In ThisWorkbook.Worksheets
For Each objShp In objWS.Shapes
With objShp

Debug.Print .Type

If .Type <> msoFormControl Then
If InStr(1, .TextFrame.Characters.Text, strSearch, vbTextCompare) Then
Application.Goto .TopLeftCell, True
If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Sub
End If
End If
End With
Next
Next
End If

End Sub

 

Hi,

prüfe ob es eine TextBox ist:

Code:

If .Type = msoTextBox Then

---

 

Wauuu,

Vielen lieben Dank Beverly!!!!!

genau das, was mir gefehlt hat! Funkt Super!

schönes Wochenende!!!

FG
Belli