Suchfunktion in User Form

Forumthread: Suchfunktion in User Form
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Suchfunktion in User Form

03.01.2022 16:46:02

Dirk

Hallo liebe Excel Anwender, folgendes Problem. Ich habe in einer Excel Datei ein User Formular für eine Suche erstellt. Diese Suche soll in der gleichen Mappe in den Spalten B und C ab Zeile 8 Begriffe suchen, bestenfalls finden, dorthin manövrieren (auch wenn der Suchbegriff bspw erst in Zeile 200 steht) und farblich unterlegen. Geht das und wie könnte das Makro dazu aussehen? Danke im Voraus. Meine Beispieldatei findet Ihr hier: https://www.herber.de/bbs/user/150110.xlsm

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchfunktion in User Form

03.01.2022 19:32:06

Yal

AW: Suchfunktion in User Form

03.01.2022 19: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

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!