Zeilen (Bereich) ein-, ausblenden

Option Explicit

Sub Zeile_einblenden()
    Dim Frage As String
    Frage = Application.InputBox("Wenn Sie hier das Wort Test eintragen " _
    & "wird Zeile 1 und 2 eingeblendet", "Zeilen einblenden")
        If Frage = "Test" Then
            Rows("1:2").Hidden = False
        End If
End Sub

Sub Zeile_ausblenden()
    Dim Frage As String
    Frage = Application.InputBox("Wenn Sie hier das Wort Test eintragen " _
    & "wird Zeile 1 und 2 ausgeblendet", "Zeilen einblenden")
        If Frage = "Test" Then
            Rows("1:2").Hidden = True
        End If
End Sub

Ihr könnt aber genauso gut eine Zelle nach einem Wort abfragen. Bei diesem Beispiel werden die Zeilen 2 und 3 ausgeblendet, wenn in Zelle A1 nicht das Wort Test steht.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Rows("2:3").Hidden = Range("A1").Value <> "Test"
End Sub