Geht auch. Abr wenn ich den Blattschutz eingeschaltet habe geht´s nicht mehr. Und dann auch nicht wenn der Schutz wieder raus ist. Hängt schon im ersten Teil.
Hier bitte:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("B6") = "Einzelplatine" Then
Rows("7:9").Hidden = True
Else
Rows("7:9").Hidden = False
End If
Application.EnableEvents = True
If Range("B19") = "Nein" Then
Rows("20:25").Hidden = True
Else
Rows("20:25").Hidden = False
End If
Application.EnableEvents = True
End Sub
Wo bitte ist die Macke? (nicht meine, die kenne ich)