Hallo Leute, ich habe folgendes Problem mti meiner Excel Tabelle:

Ich habe einen CommandButton mit Suchfunktion erstellt, der mir bei Übereinstimmung die komplette Zeile gelb markiert.

So weit, so gut. Wenn ich nun einen anderen Suchbegriff über den CommandButton eingebe wird die letzte gefundene Zeile aber nicht mehr zurückgesetzt, sprich das gelb wird nicht rausgelöscht. Er löscht nur in der erste Zeile das Gelb raus.

Des weiteren habe ich noch einen CommandButton, mit dem ich alle Filter rücksetzen möchte, sprich auch die gelb markierten Zeilen löschen, kann mir jemand helfen?

Hier ist der Code für den Such button!

Vielen Dank schonmal

Private Sub CommandButton2_Click()
         Dim suchName As String
             Dim zeLLe As Range
             Dim markRange As Range
            
             ' Bei Diagrammblättern gleich raus
             If Not TypeOf ActiveSheet Is Worksheet Then Exit Sub
            
             suchName = InputBox("Name eingeben:", "Suchfeld")
             If suchName = "" Then Exit Sub
            
             Application.ScreenUpdating = True
            
             With ActiveSheet
                 ' Alte Markierung löschen
                 .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Interior.ColorIndex = xlNone
             For Each zeLLe In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(,14)
            If InStr(LCase(zeLLe), LCase(suchName)) <> 0 Then
                If markRange Is Nothing Then
                    Set markRange = .cells(zeLLe.row, 1).Resize(,14)
                Else
                    Set markRange = Union(markRange, .cells(zeLLe.row, 1).Resize(,14))
                End If
            End If
        Next

            If Not markRange Is Nothing Then
             With markRange.Interior
               .ColorIndex = 6
               .Pattern = xlSolid
             End With
             Application.Goto markRange(1), True
           Else
             MsgBox "nix gefunden", , "gebe bekannt ..."
           End If
             End With
             Application.ScreenUpdating = True
         End Sub