Herbers Excel-Forum - das Archiv

Zeile Ausblenden bei "ja" im drop-down menue

Bild

Betrifft: Zeile Ausblenden bei "ja" im drop-down menue
von: Thorsten
Geschrieben am: 01.10.2003 15:54:22
Hallo!
habe folgendes problem:
in arbeitsmappe "anfang" ich habe ein drop-down menue erstellt in dem ich auswaehlen kann zwischen "ja" (= 1 in zeile A6) und "nein" (=2 in zeile A6).
wenn ich "ja" habe (=1), dann sollen bestimmte zeilen in arbeitsmappe "ergebnisse"
ausgeblendet werden. und bei "nein" logischerweise nicht.
wie kann ich dies loesen ?

vielen dank im voraus

Thorsten

Bild

Betrifft: AW: Zeile Ausblenden bei "ja" im drop-down menue
von: Hajo_Zi
Geschrieben am: 01.10.2003 16:17:37
Hallo Thorsten

in VBA unter der Tabelle.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" And Target.Value = "Ja" Then
Rows("12:15").EntireRow.Hidden = True
Else
Rows("12:15").EntireRow.Hidden = False
End If
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: klappt. DANKE
von: Thorsten
Geschrieben am: 01.10.2003 16:19:19
hab bei meiner programmierung einen dreher drinn gehabt. jetzt klappt es.
vielen dank
Bild

Betrifft: AW: Zeile Ausblenden bei "ja" im drop-down menue
von: junny
Geschrieben am: 01.10.2003 16:22:16
Hallo Thorsten,
folgendes Makro macht: Wenn in Tabelle 1 B5 ja steht dann werden in Tabelle 2 die Zeilen 9-11 ausgeblendet.
Der untere code blendet generell alles wieder ein.

Sub aus()
Worksheets("Tabelle1").Activate
If Range("B5") = "ja" Then
'MsgBox "Hallo"
Worksheets("Tabelle2").Select
Rows("9:11").Select
Selection.NumberFormat = ";;;"
End If
End Sub


Sub AllesAnzeigen()
Cells.Select
Selection.NumberFormat = "General"
End Sub


Denke den Rest kannst Du Dir hinbasteln,
Gruss junny
 Bild
Excel-Beispiele zum Thema " Zeile Ausblenden bei "ja" im drop-down menue"
Fehlermeldung #NV ausblenden Spalten einer Mehrbereichsauswahl ausblenden.
Symbolleisten ein-/ausblenden Zeilen und Spalten über ein Drehfeld ein- und ausblenden
Excel für die Zeit eines Dialogaufrufes ausblenden ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
Alle Menüs und Symbolleisten ausblenden Entwicklungsumgebung ein- und ausblenden
Leere Zeilen beim Druck ausblenden Alle leeren Spalten ausblenden