Hallo, Ich würde gerne nach dem Wort/Buchstabe in B5 suchen und filtern.  Ich möchte das alle Spalten ausgeblendet werden die den Wert nicht enthalten. Dabei soll Spalte A durchsucht werden.  Es sollen wieder alle Zeilen eingeblendet werden die den Wert in Zelle B5 enthalten.

Leider klappt mein Code nicht. Hab ein paar Befehle aus google rausgefischt, leider keinen Erfolg gehabt.

Weiß jemand wo der Fehler liegt?

MfG Anna

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range, strAdr As String
    
    If Not Intersect(Target, [B5]) Is Nothing Then      'Wenn Eingabe in B5 erfolgte
        If [B5].Value = "" Then                         'Wenn B5 gelöscht wurde
            Cells.Rows.Hidden = False                'Alle Zeilen wieder einblenden
        Else                                            'Ansonsten :
            Cells.Rows.Hidden = True                 'Alle Zeilen zunächst ausblenden
            Rows("1:6").Hidden = False               'Zeilen 1:6 wieder einblenden
            With Columns("A")                                'Suche Wert in kompletter Spalte A
                Set rngZelle = .Find([B5].Value, lookat:=xlWhole) 'Suche nach Wert der Zelle B5
                If Not rngZelle Is Nothing Then strAdr = rngZelle.Address
                While Not rngZelle Is Nothing
                    rngZelle.EntireRow.Hidden = False 'Spalte mit gefundenem Wert einblenden
                    Set rngZelle = .FindNext(after:=rngZelle)   'Weitersuchen
                    If rngZelle.Address = strAdr Then Set rngZelle = Nothing
                Wend
            End With
        End If
    End If
    
    Set rngZelle = Nothing
End Sub