Zeilen ausblenden, wenn Bedingung erfüllt, ansonsten wieder einblenden

[Klaus-Dieter]

Hallo,

so würde das gehen:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("I8") <> "ja" Then Sheets("Management-Cockpit").Rows("9:10").EntireRow.Hidden = True Else Sheets("Management-Cockpit").Rows("9:10").EntireRow.Hidden = False
   If Range("I10") <> "ja" Then Sheets("Management-Cockpit").Rows("11:12").EntireRow.Hidden = True Else Sheets("Management-Cockpit").Rows("11:12").EntireRow.Hidden = False
   If Range("I12") <> "ja" Then Sheets("Management-Cockpit").Rows("13:14").EntireRow.Hidden = True Else Sheets("Management-Cockpit").Rows("13:14").EntireRow.Hidden = False
End Sub

Der Quelltext muss in das Modul vom Tabellenblatt "Kennzahlenauswahl".