Office: Wörter in Textboxen per Makro suchen

Danke für die ausführliche Antwort. Blicke aber als Anfänger da nicht durch...

Ich wollte nur wissen, warum folgendes Makro in einem Textfeld nur in den ersten 250 Zeichen sucht.

Sub Suchen_alle_Tabellen()
Dim wks As Worksheet
Dim Shpe As Shape
Dim strAddress As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben:", Application.UserName, strSuch)
If strFind = "" Then Exit Sub
For Each wks In Worksheets

For Each Shpe In wks.Shapes
If Shpe.Type = msoTextBox Then
If Shpe.DrawingObject.Caption Like strFind Then
MsgBox "Suchtext gefunden in: " & Shpe.Name & " " & wks.Name
End If
End If
Next
Next wks
strSuch = strFind
MsgBox "Keine weiteren Fundstellen!", False, Application.UserName
End Sub


Danke und LG!

 

Mit anderen Worten: Lösungsorientierung interessiert Dich nicht, Du möchtest Dein Problem behalten. Das bisher Gesagte und Gezeigte war umsonst, Du fällst konsequenterweise zurück auf Deinen Ursprungscode.

Code:

Für Deine weiteren Forschungen kannst Du dieses Gebilde analysieren und durchdenken, z.B.:
- Wieviel Zeichen könnte Caption aufnehmen und zurückgeben?
- Like ist Mustersuche. Macht diese Sinn mit einem Feststring?

 

Ich habe auch schon folgende Varianten ohne Erfolg probiert:

Shpe.DrawingObject.Text & "," Like.....
Shpe.TextFrame.Characters.Text & "," Like.....

Welche Alternativen zu "Like" gäbe es?

 

Eine Alternative habe ich Dir genannt, aber du willst dich damit ja nicht beschäftigen

 

Wenn ich das richtig kapiert habe, dann sucht die Funktion Instr() in einer vorgegebenen Zeichenfolge. Aber die Zeichenfolgen in meinen Textfeldern sind ja unterschiedlich.

 

Danke für die "freundliche" Unterstützung!

 

Hola,

weiter gehts hier:

https://www.herber.de/forum/messages/1755178.html

Gruß,
steve1da

 

Hurrah...

Und es gibt den gleichen Hinweis auf instr(), den ich auch schon genannt habe.

Ob das jetzt eine "freundlichere" Unterstützung ist, als von mir?