Sub ein_ausblenden() With Sheets("Übersicht") If .Range("B11") = "Nein" Then .Range("1:3").EntireRow.Hidden = True ElseIf .Range("B11") = "Ja" Then .Range("1:3").EntireRow.Hidden = False End If End With End Sub Sub Janein() With Sheets("Übersicht") If .Range("B11") = "Nein" Then .Range("B11").Value = "Ja" Else .Range("B11").Value = "Nein" End If End With End Sub