AW: Suchfunktion in User Form
03.01.2022 18:32:06
Yal
Hallo Dirk,
anbei eine mögliche Lösung.
Sub SuchenUndFärben(Begriff As String)
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:=Begriff, 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
End Sub
VG
Yal