zeilen ausblenden

Question

Hallo,habe da ein problem..! vieleicht kan mir ja jemand helfen ??

Ich habe drei tabellen, Tabelle1 / Tabelle 2 / Tabelle 3
jetzt möchte ich wenn ich in tabelle 1 bestimmte zeilen makiere
das er sie mir ausblendet.
aber in tabelle 2 und 3 soll er mir diese zeilen auch ausblenden...!
danke schon mal für eure hilfe !
gruß nero

Answer 1

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

Answer 2

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