Suchfeld/Ausblenden - Erweiterung

Sub wegmit()
Dim sBereich As Range, sZeile As Range, sZelle As Range
Dim such As String
Application.ScreenUpdating = False
such = "*" & LCase(InputBox("Was suchst du?")) & "*"
If such = "**" Then 'wenn nichts eingegeben wird, werden alle Zeilen eingeblendet
Rows.Hidden = False
Exit Sub
End If
Set sBereich = ActiveSheet.UsedRange
sBereich.EntireRow.Hidden = True
sBereich.Range("1:2").EntireRow.Hidden = False 'Zeilen, die immer sichtbar bleiben
For Each sZeile In sBereich.Rows
For Each sZelle In sZeile.Cells
If LCase(sZelle) Like such Then
sZeile.Hidden = False
Exit For
End If
Next sZelle
Next sZeile
Application.Goto Cells(1, ActiveCell.Column)
Application.ScreenUpdating = True
End Sub