Office: Makro-Hilfe benötigt - Zeilen verstecken lassen

Hallo,

ich bräuchte bei einem vermeintlich leichten Makro dringend Hilfe:

Ich würde gerne, wenn in einer bestimmten Zelle "No" steht (sagen wir in E39), die Zeilen 40-70 sowie 88-92 verstecken lassen. Hingegen, wenn in E39 "Yes" steht, sollen nur die Zellen 74-83 versteckt werden.

E39, zur Information, ist eine Zelle mit einem Drop-Down Menü. Dort wählt man entweder "Yes" oder "No" aus. Und eben darauf hin, soll nur ein bestimmter Teil der Tabelle angezeigt werden, da der andere überflüssig wird.

Geht das? Wenn ja, kann mir da jemand was programmieren?

Vielen vielen Dank im Voraus!

Viele Grüße,
Sven

 

Hallo!

Dieser Code gehört ins Modul des gewünschten Tabellenblattes.
Wenn weder "Yes" noch "No" in E39 steht, dann sind alle Zeilen eingeblendet.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("E39"), Target) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Rows.Hidden = False
If Target.Value = "Yes" Then Range("A74:A83").Rows.Hidden = True
If Target.Value = "No" Then Range("A40:A70").Rows.Hidden = True
If Target.Value = "No" Then Range("A88:A92").Rows.Hidden = True
Application.ScreenUpdating = True
End Sub

 

Super, vielen Dank!

 

Noch eine kurze Frage:

Wie ändert sich der Code, wenn ich gerne Zeile z.B. 40 bis 92 versteckt haben möchte, solange E39 (noch) leer ist?

Vielen Dank nochmal!
So eine schnelle Antwort hätte ich nicht erwartet

Viele Grüße und noch einen schönen Feiertag,
Sven

 

Dann kommt diese Zeile noch dazu:

Code:

If Target.Value = "" Then Range("A40:A92").Rows.Hidden = True