Office: Zeilen aus- und einbleinden mit Button

Hallo Excel-Profis.

Ich benötige einen Button in Excel 2007 der folgendes kann:

Der Schalter soll in Tabelle1 integriert sein. Er soll folgendes tun:

- Prüfen ob Zelle B20 leer ist
- Wenn die Zelle B20 leer ist, dann soll in Tabelle2 bis Tabelle5 die Zeilen 20 und 21 ausgeblendet werden.

Kann mir da jemand helfen? Ich kenn mich leider mit Makros und VB nicht aus. :-(

Vielen Dank schon jetzt

Klaus

 

Hallo!

Code:

Sheets("Tabelle2").Rows("20:21").Hidden = (Range("B20") = "")
Sheets("Tabelle3").Rows("20:21").Hidden = (Range("B20") = "")
Sheets("Tabelle4").Rows("20:21").Hidden = (Range("B20") = "")
Sheets("Tabelle5").Rows("20:21").Hidden = (Range("B20") = "")

 

Hallo Schatzi!

Das klappt!!! :-D

Lässt sich bei diesem Schalter noch eine Abfrage mit einbringen?

Diese soll folgendes machen:

Es soll außerdem geprüft werden, welche Zahl in Zelle E20 steht, wenn die Zelle B20 nicht leer ist!

Diese Zahl in E20 kann zwischen 2 und 5 sein.

Ist diese Zahl dann Z.B. 4 sollen in den Tabellen 2-3 auch die Zeilen 20 und 21 ausgeblendet werden. Also erst ab der Tabelle4 sollen dann diese Zeilen eingeblendet sein.

Ich hoffe ich habe das nicht zu kompliziert geschrieben???

ISt das überhaupt lösbor??

Vielen Dank

Klaus

 

Hi Klaus,

hier http://www.supportnet.de/t/2332371 hast du bereits eine Antwort mit ausführlicher Beschreibung erhalten.

Bis später,
Karin

 

Hallo Karin,

vielen Dank!

JEtzt hat sich die ganze Sache aber doch noch erweitert!! Hätte da gerne noch ne zusätzliche Abfrage wie vorhin beschrieben eingebaut!

Vieleicht hast du da für mich auch ne Lösung??

LG Klaus

 

Hi Klaus,

dann sollte diese Zeile ausreichend sein:

Code:

    Worksheets("Tabelle" & Range("E20")).Rows("20:21").Hidden = Range("B20") = ""

Bis später,
Karin