Rows Typenkonflikt
23.05.2014 08:28:40
Daniel
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
For Each c In Sheets("Answer sheet").Range("F8:F200")
Select Case c.Value
Case Is = "YES"
Sheets("Action list").Rows(c).EntireRow.Hidden = False
Case Else
c.Sheets("Action list").Rows(c).EntireRow.Hidden = True
End Select
Next c
Application.ScreenUpdating = True
End Sub