Suchfunktion
07.03.2008 06:16:00
amintire
Ich hab hier einen Code für eine Suchfunktion. Funktioniert auch, allerdings sucht der genau nach dem Wort, würde es aber gern so wollen dass er auch ähnliche begriffe sucht.
Sub Suchen()
Dim rng As Range
Dim sFind As String
sFind = InputBox( _
prompt:="Suchbegriff:", _
Default:="")
If sFind = "" Then Exit Sub
Set rng = Columns(2).Find( _
what:=sFind, lookat:=xlWhole, LookIn:=xlValues)
'Columns (2) bedeutet zweite Spalte in der Tabelle, in der wird gesucht
If rng Is Nothing Then
Beep
MsgBox "Der Film ist leider nicht vorhanden!"
Exit Sub
End If
Rows(rng.Row).Select
End Sub
Gruß amintire