Aktive Zeilen farbig hinterlegen
13.12.2016 08:49:01
Andreas
Hallo,
ich verwende folgenden Code um eine Suchfunktion über ein Button an zu steuern, leider bekomme ich es nicht hin das wenn ein suchergebniss angezeigt wird dieses in der Zeile farbig zu hinterlegen, ( bei wechseln der Zeile soll die farbige Hinterlegung wieder verschwinden :))
Bitte um Hilfe
Sub Suchfunktion()
Dim bFound As Boolean
Dim rC As Range
Dim tAddr As String
Dim tSearch As String
tSearch = InputBox("Suche nach:", "Suchen")
If tSearch = "" Then Exit Sub
With ActiveSheet.Cells
Set rC = .Find(tSearch, LookIn:=xlValues)
If Not rC Is Nothing Then
tAddr = rC.Address
Do
rC.Select
MsgBox "Gefunden in " & rC.Address(0, 0) & ", Wert: " & rC.Value
bFound = True
Set rC = .FindNext(rC)
Loop While Not rC Is Nothing And rC.Address <> tAddr
End If
End With
If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub