Code (auf dem Tabellenblatt)

Private Sub Worksheet_Change(ByVal Target As Range)

'Prüfen, ob wir in Zelle L5 sind
If Not Intersect(Target, Range("L5")) Is Nothing Then

    'Zeilen einblenden
    Cells.EntireRow.Hidden = False

    'Prüfen, ob "Buchungen" in Zelle L5 steht
    If Range("L5").Value = "Buchungen" Then
        Rows("20:25").EntireRow.Hidden = True
    ElseIf Range("L5").Value = "Produkte" Then
        Rows("11:16").EntireRow.Hidden = True
    End If
    
End If

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub