suchfunktion unter VBA/Excel

[stephan]

hallo zusammen,

möchte eine suchfunktin unter VBA für Excel erstellen. sie
soll so aussehen, das ich in einem textfeld einen
suchbergriff eingebe und dieser in einer vorhanden tabelle
nach diesem begriff sucht. das grundgerüst habe ich
bereits mir fehlt nur noch die funktion, das ich begriffe
auch mit * abkürzen kann. soll heissen ich für den
begriff 'Feuerwehrmann' auch 'Feuer*' eingeben kann.

für jeden hinweis bin ich sehr dankbar!

[Unknown]

Hallo Stephan,
zum Weiterexperimentieren:

Private Sub CommandButton1_Click()
Dim strSuchtext As String
Cells.Find(What:=TextBox1.Text, _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub

Anmerkung:
Auf der Userform befindet sich eine Textbox und ein CommandButton. Bei
der Eingabe einer Zeichenkette werden durch mehrmaliges Anklicken des
CommandButton alle Fundstellen im aktiven TGabellenblatt angezeigt.

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de