Ich habe mir ein Suchen Makro zusammengestellt.
Das Makro soll einen Suchbegriff in der Spalte D des ersten Tabellenblattes suchen.
Das Funktioniert auch einwandfrei.
Ich hätte das Makro gerne so geändert, das wenn ich zum Beispiel das Wort "Fis" in die Inputbox eingebe, er z.B Fisch und auch Fischer erkennt.
Zur Zeit muß das Wort in der InputBox genau mit dem Begriff in der Spalte übereinstimmen.
Hier das Makro:
Sub Suchen()
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
Set GZelle = Worksheets(1).Columns(4).Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.Columns(4).FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
End Sub
Ich hoffe mir kann jemand helfen.
Gruß Heino