könnt ihr mir auf den ersten Blick sagen, weshalb der folgenden Code nicht reagiert wenn ich in der Verbundzelle C17:E17 die Werte ensprechend über Dropdown ändere?
Sub Zeilen_ausblenden()
Application.ScreenUpdating = False
If Range("C17:E17").Value = "A" Then
Rows("19:40").Hidden = True And Rows("48:84").Hidden = True
End If
If Range("C17:E17").Value = "B" Then
Rows("19:47").Hidden = True And Rows("63:84").Hidden = True
End If
If Range("C17:E17").Value = "C" Then
Rows("19:62").Hidden = True And Rows("74:84").Hidden = True
End If
If Range("C17:E17").Value = "D" Then
Rows("30:84").Hidden = True
End If
If Range("C17:E17").Value = "E" Then
Rows("19:73").Hidden = True
End If
If Range("C17:E17").Value = "F" Then
Rows("19:29").Hidden = True And Rows("41:84").Hidden = True
End If
Application.ScreenUpdating = True
End Sub
Danke im Voraus.