Über Hilfe würde ich mich freuen! :)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N7")) Is Nothing Then
Cells.EntireRow.Hidden = False
If Range("N7").Value = "Ja" Then
Rows("15:20").EntireRow.Hidden = True
End If
If Not Intersect(Target, Range("N8")) Is Nothing Then
If Range("N8").Value = "Nein" Then
Rows("23:30").EntireRow.Hidden = True
End If
If Not Intersect(Target, Range("N22")) Is Nothing Then
If Range("N22").Value = "Nein" Then
Rows("27:30").EntireRow.Hidden = True
End If
End If
End If
End If
End Sub