Suchen und Finden 2

Habe da auch schon einen Ansatz, der sucht aber in der ganzen Tabelle.

Wäre schön, wenn mir jemand dabei helfen könnte.

Sub suchen()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = InputBox("Suchbegriff:", , "test")

Set rngFind = Cells.Find(what:=sSearch, lookat:=xlPart)

If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
rngRows.Select
End Sub

Danke

Gruß

Oliver