Zeilen auf anderem Tabellenblatt ausblenden

29/01/2010 - 10:59 von Stefan W | Report spam
Hallo!

Ich habe vorab schon hier durchgesucht, aber leider keine passende
Antwort auf mein Problem gefunden.
Ich möchte per Buttonclick auf 2 anderen Tabellenblàtter bestimmte
Zeilen ausblenden oder einblenden.


Auf dem Blatt "Tabelle1" befindet sich der Button, der den Code bei
Klick ausführen soll.
Wenn sich auf dem Tabellenblatt "Tabelle 3" in Zelle A1 der Wert "1"
steht soll auf den Tabellenblàtter "Tabelle2" und "Tabelle3" jeweils
die Zeile 10 und 12-13 ausgeblendet werden.

Wenn sich auf dem Tabellenblatt "Tabelle 3" in Zelle A1 der Wert "2"
steht soll auf den Tabellenblàtter "Tabelle2" und "Tabelle3" jeweils
die Zeile 8 und 10-11 ausgeblendet werden.

Ja nach Wert (1 oder 2) sollen nur die entsprechenden Zeilen
ausgeblendet werden, die anderen sollten dabei immer sichtbar sein.

Für eure Hilfe bin ich sehr dankbar!
Grüße
 

Lesen sie die antworten

#1 Andreas Killer
29/01/2010 - 12:14 | Warnen spam
On 29 Jan., 10:59, Stefan W wrote:

Ich möchte per Buttonclick auf 2 anderen Tabellenblàtter bestimmte
Zeilen ausblenden oder einblenden.


Kein Ding, aber...

Ja nach Wert (1 oder 2) sollen nur die entsprechenden Zeilen
ausgeblendet werden, die anderen sollten dabei immer sichtbar sein.


...wann werden die ausgeblendeten Zeilen wieder eingeblendet? Nie?

Andreas.

Sub Schaltflàche1_BeiKlick()
Select Case Sheets("Tabelle 3").Range("A1")
Case 1
'Wenn sich auf dem Tabellenblatt "Tabelle 3" in Zelle A1 _
der Wert "1" steht soll auf den Tabellenblàtter _
"Tabelle2" und "Tabelle3" jeweils die Zeile 10 und 12- _
13 ausgeblendet werden.
Sheets("Tabelle2").Range("A10,A12:A13").EntireRow.Hidden _
= True
Sheets("Tabelle3").Range("A10,A12:A13").EntireRow.Hidden _
= True
Case 2
'Wenn sich auf dem Tabellenblatt "Tabelle 3" in Zelle A1 _
der Wert "2" steht soll auf den Tabellenblàtter _
"Tabelle2" und "Tabelle3" jeweils die Zeile 8 und 10- _
11 ausgeblendet werden.
Sheets("Tabelle2").Range("A8,A10:A11").EntireRow.Hidden = _
True
Sheets("Tabelle3").Range("A8,A10:A11").EntireRow.Hidden = _
True
End Select
End Sub

Ähnliche fragen