Text in Autoformen(Shapes) suchen
01.02.2019 15:24:31
Resus
benötige bisschen Hilfe beim Programmieren eines Makros.
Folgendes Problem:
Ich habe eine Excel-Datei erstellt mit mehreren Arbeitsblättern. Auf jeder Arbeitsmappe befinden sich verschiedene Rechteckige Formen, in denen verschiedene Texte stehen. Das Makro soll eine InputBox öffnen in der das gesuchte Wort eingegeben werden soll. Anschließend sollen alle Shapes auf den Arbeitsmappen durchsucht werden und bei einem Treffer, das Shape auswählen und dorthin scrollen. Da es eine Autoform ist, funktioniert leider die Autosuche in Excel nicht, daher bin ich dabei mir ein Makro zu schreiben. Allerdings habe ich irgendwo einen Fehler, sodass ich nicht mehr weiter komme.
Hier mein Versuch:
Sub Suchen_und_Scrollen()
Dim shp As Shape, Suchbegriff As Variant, Textfeldtext As String, Abfrage As Variant
Suchbegriff = InputBox("Bitte einen Suchbegriff eingeben.", "Suchbegriff...")
If Suchbegriff = False Or Suchbegriff = Empty Then Exit Sub
For Each shp In ActiveSheet.Shapes
ActiveSheet.Shapes.Select
Textfeldtext = Selection.Characters.Text
If InStr(1, Textfeldtext, Suchbegriff, 1) Then
ActiveWindow.ScrollIntoView _
Left:=Selection.Left, Top:=Selection.Top, _
Width:=0, Height:=0
MsgBox "Suchbegriff in " & ActiveSheet.Shapes.Name & " gefunden."
End If
Next
End Sub
Schon mal vielen Dank und Grüße