farbige hinterlegung erweitern

[AndyExcel77]

Hallo,

ich habe folgenden Code für die Suchfunktion bei mir

Sub Suchfunktion()
  Dim bFound As Boolean, bCancel 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
             
              rC.Interior.ColorIndex = 4
              bCancel = MsgBox("Artikel:" & rC.Value, vbRetryCancel) = vbCancel
              rC.Interior.ColorIndex = 0
              bFound = True
              Set rC = .FindNext(rC)
          Loop While Not rC Is Nothing And rC.Address <> tAddr And Not bCancel
      End If
  End With
  If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub


diese färbt den Zeilenbereich ein wenn ein Suchtreffer dabei ist, kann man die farbige Hinterlegung erweitern und die Spalten B,C,D in der selben Zeile mit einfärben?

DANKE

[RPP63]

Moin!
Dafür gibt es .Resize
Statt

Code:

rC.Interior.ColorIndex = 4

nimmst Du

Code:

rC.Resize(1, 4).Interior.ColorIndex = 4

Gruß Ralf

[AndyExcel77]

Hey,

danke das klappt, nur leider bleibt die Farbliche Hinterlegung stehen, diese soll nach weiterklicken auch wieder verschwinden.

Bitte um abhilfe

[RPP63]

Na ja, zwei Zeilen später musst Du sie natürlich genau so wieder zurücksetzen.
Nimm es mir nicht übel, aber ein wenig Mitdenken hatte ich schlicht vorausgesetzt.

Gruß Ralf

[AndyExcel77]

Ok DANKE :)

Bin halt Excel NOOB