Shape Type ändert sich selbst
19.03.2021 11:01:18
Alexandro
habe ein Problem im Code, dass er den Shape type selbst umändert. DegubPrint zeigt, dass er von 17 auf 28 springt, nachdem der Code vollständig ausgeführt wird, und ergibt selbstverständlich einen Fehler und sucht nach weiteren Shapes nicht mehr.
Weis jemand zufällig, wie ich den Type vom Shape zuweisen kann, dass er immer auf 17 bleibt ?
Grüße
Alex
Sub searchInForms()
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