|
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
|