Hi Klaus,

gehe auf das Register: Entwicklertools -> Befehlsgruppe: Steuerelemente -> Schalter: Einfügen, klicke dort unter ActiveX-Steuerelemente "Befehlsschaltfläche" (das 1. in der oberen Reihe) an und ziehe das Element im Tabellenblatt auf. Mache dann einen Doppelklick auf das Element - damit gelangst du in die VBA-Umgebung - und kopiere den folgenden Code in das entstandene Codegerüst:

    Dim wshTabelle As Worksheet
    For Each wshTabelle In ThisWorkbook.Worksheets
        Select Case wshTabelle.Name
            Case "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5"
                If Worksheets("Tabelle1").Range("B20") = "" Then
                    wshTabelle.Rows("20:21").Hidden = True
                Else
                    wshTabelle.Rows("20:21").Hidden = False
                End If
        End Select
    Next wshTabelle

Schließe dann den VBA-Editor und drücke in der selben Befehlsgruppe den Schalter "Entwurfsmodus" - der erstellte Schalter ist nun betriebsbereit und in Abhängigkeit von B20 werden die Zeilen 20 und 21 in den betreffenden Tabellenblättern aus- bzw. eingeblendet.

Bis später,
Karin