Hi, 

danke für deine Hilfe!

Ich habe es probiert, aber leider klappt es bei N8 und N22 nicht. Es werden also keine Zeilen ausgeblendet.

Zum Verständnis: N22 = Nein würde bedeuten die Person lebt in Deutschland, aber nicht in NRW deshalb werden die Zeilen 27-30 ausgeblendet.

Über Hilfe würde ich mich freuen! :)

Private Sub Worksheet_Change(ByVal Target As Range)

    'Prüfen, ob wir in Zelle N7 sind
    If Not Intersect(Target, Range("N7")) Is Nothing Then
    
        'Zellen einblenden
        Cells.EntireRow.Hidden = False
        
        'Prüfen, ob "Ja" in N7 steht
        If Range("N7").Value = "Ja" Then
        Rows("15:20").EntireRow.Hidden = True
        End If
        
        'Prüfen, ob wir in Zelle N8 sind
        If Not Intersect(Target, Range("N8")) Is Nothing Then
        'Prüfen, ob "Nein" in N8 steht
        If Range("N8").Value = "Nein" Then
        Rows("23:30").EntireRow.Hidden = True
        End If
        
        'Prüfen, ob wir in Zelle N22 sind
        If Not Intersect(Target, Range("N22")) Is Nothing Then
        'Prüfen, ob "Nein" in N22 steht
        If Range("N22").Value = "Nein" Then
        Rows("27:30").EntireRow.Hidden = True
        End If
   
    End If

End If
End If
End Sub