Wortteil suchen
13.11.2016 20:24:32
Rainer
konnte mir für die Suche diesen Code zusammenstellen und war nun auf der Suche, diesen abzuändern, damit er auch nur mit einem Wortteil funktioniert.
Dim sSuche As String, rCell As Range
sSuche = InputBox("Bitte Suchbegriff eingeben!", "Leistungsmerkmal")
Set rCell = Rows(3).Find(sSuche, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rCell Is Nothing Then
Range(rCell.Address).Select
Else
MsgBox sSuche & " wurde nicht gefunden"
End If
Vielleicht gibt es in o. g. Suche ja einen Begriff für Teilsuche.
Gruß Rainer
P.S.: könnte auch auf Spalte L bis HG begrenzt werden
Anzeige