Text in Autoformen(Shapes) suchen

Sub searchInForms() Dim objShp As Object, objWS As Worksheet Dim strSearch As String strSearch = InputBox("Suchbegriff eingeben") If Len(strSearch) Then For Each objWS In ThisWorkbook.Worksheets For Each objShp In objWS.shapes If InStr(1, objShp.TextFrame.Characters.Text, strSearch, vbTextCompare) Then Application.Goto objShp.TopLeftCell, True If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Sub End If Next Next End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alexandro,
lass dir mal den Typ ausgeben:

Sub searchInForms()
    Dim objShp As Shape, objWS As Worksheet
    Dim strSearch As String

    strSearch = InputBox("Suchbegriff eingeben")

    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

Und poste den letzten Typ bei dem das Makro aussteigt.
Gruß
Nepumuk

Oder sind das mehrere Blätter, Alexandro?
Ist Letzteres nicht der Fall, müsstest du auch nicht alle Blätter durchsuchen! Und wenn du erst mal das richtige Shape-Objekt gefunden hast, wüsstest du auch seinen Namen und das Auslesen seines TextInhalts sollte dann auch kein Problem mehr sein, denn dafür liegt schon lange eine UDF im Archiv bereit. Bei Autoformen mit Text, Textfeldern, Kommentaren und ZellInhalten bzw -Fmln klappt das auch in einer ZellFml.
Sind die Namen der Shapes gleichartig und nur flfd (möglichst ohne Lücken) nummeriert, kann man mit zusätzlichen UDFs auch erreichen, dass alle einer TextSuche unterzogen wdn und die Namen derjenigen im Ergebnis angezeigt wdn, die diesen (Teil-)Text enthalten. Damit könntest du dann mit einem separaten Pgm entweder die .TopLeftCell oder aber das ganze Shape markieren bzw temporär umfärben oder in 3d hervorheben. Auch die TextWiedergabe in Zellen oder die Kopie des Shapes in einen bestimmten Bereich wäre so möglich, ggf auch das WegBewegen inkl Rückführung, was aber das Ganze nur unnötig komplizeren würde. Das musst und kannst du selber entscheiden, falls deine Shapes zur ZielGruppe der UDF gehören und sich alle auf einem Blatt befinden.
Mit einfachen Textfeldern fktioniert der Such- und NamensangabePart jedenfalls sehr gut. Alles darüber hinaus wäre dann deine Aufgabe. Aber gerade das scheint ja das verbliebene Problem zu sein, das aber keines wäre, falls du nur den Text des/der gefundenen Shapes anzeigen wolltest.
Morhn, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon

Beliebteste Forumthreads (12 Monate)

Text in Autoformen(Shapes) suchen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text in Autoformen(Shapes) suchen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread