Zwei Suchbegriffe

Sub Begriffe_suchen()
Dim ws As Worksheet, strBegriff As String, ze As Long, z As Long
Dim strInhalt As String
Set ws = ActiveWorkbook.ActiveSheet
strBegriff = LCase(InputBox("Suchbegriff:"))
If strBegriff = "" Then Exit Sub
ze = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For z = 2 To ze
strInhalt = LCase(ws.Cells(z, 3) & " " & ws.Cells(z, 4))
If InStr(strInhalt, strBegriff) = 0 Then
ws.Rows(z).EntireRow.Hidden = True
End If
Next z
End Sub