Hallo nochmal, den ersten Teil bezogen auf Zelle C8 in Sheet QA Validation bekomme ich hin. Den Bezug zu C15 leider nicht und den Wechsel zum anderen Arbeitsblatt und die dort auszuführenden Aktionen leider auch nicht.
Private Sub Worksheet_Change(ByVal Target As Range)
'prüfen ob Zelle C8 leer
If Not Intersect(Target, Range("C8")) Is Nothing Then
'Zeilen einblenden
Cells.EntireRow.Hidden = False
'prüfen ob text ungleich no
If Range("C8").Value <> "no" Then
Rows("11:28").EntireRow.Hidden = True
'prüfen ob C8 leer
If Range("C8").Value = "" Then
Rows("11:28").EntireRow.Hidden = False
'prüfen ob Zelle C15 leer
If Not Intersect(Target, Range("C15")) Is Nothing Then
'Zeilen einblenden
Cells.EntireRow.Hidden = False
'prüfen ob C15 gleich yes
If Range("C15").Value = "yes" Then
Rows("18:28").EntireRow.Hidden = True
End If
End If
End If
End If
End If
End Sub
|