Clever-Excel-Forum

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

Moin!
Dafür gibt es .Resize
Statt
nimmst Du

Gruß Ralf

Hey,

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

Bitte um abhilfe

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

Ok DANKE :)

Bin halt Excel NOOB