habe mal wieder ein Problem. Ich möchte in Tabelle1 in der Spalte C ab C3 bis C655336 nach einem Begriff suchen. Falls der Begriff gefunden wurde soll die Zelle markiert werden.
Habe da auch schon einen Ansatz, der bezieht sich aber auf die ganze 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