Suchen und mark. mit Hilfe einer ComboBox via VBA
Eddie
ich habe ein VBA Funktion, womit man meine Tabelle nach einem bestimmten Wort durchsucht, und dieses dann rot markiert.
Nun will ich aber gerne das durch eine Combo.Box in meinem Formular etwas vereinfachen, indem ich schon ein paar Namen dort habe und diese dann nur noch auswählen muss.
Die ComboBox Daten würde ich mit DatenEinlesen.cboUserList.Value einlesen.
Wie müsste denn die Suchroutine in VBA sein, damit ich den Suchtext direkt von der ComboBox mir auslesen kann ?
Danke und Gruß
Eddie
Code:
Sub SchriftFarbig()
Dim lngFound As Long
Dim rngCell As Range
Const strSearch As String = "DerTextSollImTextGesuchtWerden"
Application.ScreenUpdating = False
For Each rngCell In ActiveSheet.UsedRange
lngFound = 1
Do While InStr(lngFound, rngCell.Value, strSearch) > 0
With rngCell.Characters(InStr(lngFound, rngCell.Value, strSearch), Len(strSearch))
' .Font.Superscript = True
.Font.ColorIndex = 1
rngCell.Interior.ColorIndex = 3 'rot
End With
lngFound = InStr(lngFound, rngCell.Value, strSearch) + 1
Loop
Next rngCell
Application.ScreenUpdating = True
End Sub