Makro Anpassung Suchfunktion
31.01.2022 17:58:53
Dirk
Was muss ich ändern, wenn der Treffer, das ist, was ich gesucht habe und Excel die Zelle nicht mehr färben soll?
Private Sub Button_Search_Click()
Dim rng As Range
Dim ersterTreffer As Range
Dim Treffer As Range
With Worksheets("Glossar")
Set rng = Intersect(.Range("B8:C65530"), .UsedRange)
Set ersterTreffer = rng.Find(What:=Suchbegriff, After:=rng.Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If ersterTreffer Is Nothing Then Exit Sub
Set Treffer = ersterTreffer
Do
Treffer.Interior.ColorIndex = 3
Set Treffer = rng.FindNext(Treffer)
Loop While Treffer.Address ersterTreffer.Address
End With
Application.GoTo ersterTreffer, True
End Sub