hi all ^^

ein beispiel

gruss nighty

Option Explicit
Sub Ausblenden()
Dim zeile As Range
    For Each zeile In Selection
        Sheets("Tabelle1").Rows(zeile.Row).EntireRow.Hidden = True
        Sheets("Tabelle2").Rows(zeile.Row).EntireRow.Hidden = True
        Sheets("Tabelle3").Rows(zeile.Row).EntireRow.Hidden = True
    Next zeile
End Sub

Hi,

geht auch ohne Makro indem Du die Tabellen, in denen die Zeilen ausgeblendet werden sollen, als Gruppe definierst.

Die Vorgehensweise dabei ist wie folgt...
z.B. Im Tabellenblatt 1, Tab2 und Tab3 sollen die Zellen 4-6 ausgeblendet werden....
dazu klickst Du unten auf Tabellenblatt1 - dann die Umschalttaste gedrückt halten - und dann ein Klick auf Tabellenblatt3. Dadurch werden die drei Blätter 1-3 zu einer Gruppe. Umschalttaste wieder loslassen und danach wird alles das, was nun in dem obersten Tabellenblatt durchgeführt wird - ob Formel oder Werte eintragen oder eben wie gewünscht - Zeile 4 bis 6 markieren und dann ausblenden, so wird genau dieses innerhalb der Gruppe vorgenommen.
Die Gruppe kann man durch Rechtsklick auf einen der Tabellennamen und dem Befehl Gruppe aufheben wieder auflösen oder alternativ in ein nicht markiertes Tabellenblatt klicken.
Wenn in z.B. Tab1, Tab3 und Tab6 die Zeilen 4-6 ausgeblendet werden soll, dann mit der Maus auf Tab1 klicken und dann die Taste STRG gedrückt halten und dann ein Klick auf Tab3 und dann auf Tab5. Taste STRG wieder loslassen und die Zeilen 4-6 markieren und ausblenden. Gruppe wieder auflösen.

Die Lösung von @Nighty ist natürlich bequemer, aber es geht eben auch ohne Makro. ;-).

In diesem Sinne... have a nice Day... Gruß Helmut