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
Habe zwar etliche, umfassende Codes mit Suche innerhalb einer Spalte gefunden, waren aber immer recht umfassend.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