Option Explicit
Sub Ausblenden()
Dim Suchbegriff As String
Dim Zeile As Long
Dim ZeileMax As Long
Dim PfadAs String
Dim wb As Workbook
Pfad= "C:\Users\username\Desktop\testbook.xlsx"
Suchbegriff = inputbox("Suchbegriff eingeben!")
Workbooks.Open Pfad
Set wb = Workbooks(Pfad).Sheets("testsheet")
With wb
ZeileMax = .UsedRange.Rows.Count
For Zeile = 1 To ZeileMax
If UCase(.Cells(Zeile, 1).value) <> UCase(Suchbegriff) Then
.Cells(Zeile, 1).EntireRow.Hidden = True
Else
.Cells(Zeile, 1).EntireRow.Hidden = False
End If
Next Zeile
End With