Biddeschön
Option Explicit
Sub Ausblenden()
Dim Suchbegriff As String
Dim Zeile As Long
Dim ZeileMax As Long
Dim Pfad As String
Dim wb As Workbook
Pfad = "C:\Users\" & Environ("username") & "\Desktop\testbook.xlsx"
Suchbegriff = InputBox("Suchbegriff eingeben!")
Workbooks.Open Pfad
With ActiveWorkbook.Worksheets("testsheet")
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
End Sub