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
|