Inhalte von Textfeldern durchsuchen
03.07.2008 18:32:00
Textfeldern
folgendes Problem. In einem Tabellenblatt befinden sich ca. 200 Textfelder (Textfeld 1, Textfeld 2, usw.), eingefügt über die Zeichen-Symbolleiste, also keine Textboxen (Steuerelemente). Ich möchte über eine Suchanfrage (Userform) die Inhalte aller Textfelder durchsuchen. Übereinstimmungen sollen dann in einer Tabelle untereinander aufgelistet werden, oder vielleicht auch einfach durch farbliches Markieren der betreffenden Textfelder geschehen.
Leider gelingt mir nicht einmal, den Inhalt eines Textfeldes in eine Variable zu schreiben und diese dann in einer Messagebox anzeigen zu lassen.
Sub Inhalte_Suchen()
Dim A
A = ActiveSheet.Shapes("Textfeld 1").Select
Selection.Characters.Text
MsgBox A, vbInformation, "Suchergebnisse ..."
End Sub
Hat jemand eine Idee, wie man diese Prozedur eventuell erzeugen kann?
Danke schon mal im Voraus.
Grüße aus der Mitte. Axel