Zeilen ausblenden in Excel 2007 mit Schalter

Question

Hallo Excel-Profis.

Ich benötige einen Schalter 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

Answer 1

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