Moin zusammen,

ich bin absoluter Neuling und habe nun schon versucht durch Anlesen von Hinweisen und Informationen mein Thema erfolgreich zu bearbeiten. Leider war es nicht ganz von Erfolg gekrönt.

Ich habe eine Arbeitsmappe mit 11 Blättern. Auf Blatt 1 ist eine Übersicht mit Werten. Alle anderen Blätter sollen/können ab Zeile 3 und von Spalte A bis H Eintragungen enthalten.  Jedes Blatt hat hat ein Suchfeld (Eingabefeld) in M2 und eine bedingte Formatierung, dass alle Zeilen farblich unterlegt werden, die den Suchbegriff enthalten. Ich suche nun nach einer Möglichkeit, dass alle Zeilen die keine farbliche Unterlegung haben, ausgeblendet werden. Jedes Mal, wenn das Suchfeld geändert wird, soll das durchlaufen und wenn das Suchfeld geleert wird, soll auch wieder alles angezeigt werden.

Folgende Codes hatte ich in einem anderen Forum gefunden und für mich angepasst. Leider funktioniert da was nicht.

Wäre für jede Hilfe dankbar.

Sub Farbe()
    Dim I As Long, J As Long
    Dim Letzte As Long
    Dim Ausblenden As Boolean
    Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    For I = 1 To Letzte
        Ausblenden = False
        For J = 1 To 2
            If Cells(I, J).Interior.ColorIndex = xlColorIndexNone Then
                Ausblenden = True
                Exit For
            End If
        Next J
        Rows(I).EntireRow.Hidden = Ausblenden
    Next I
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$M$2" Then Exit Sub
    Application.EnableEvents = False
         Farbe
    Application.EnableEvents = True
End Sub