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