Herbers Excel/VBA-Archiv

Zeilen ausblenden

• Zeilen ausblenden von Patrik Achermann vom 11.09.2020 21:52:56
• AW: Zeilen ausblenden - von Werner am 11.09.2020 23:50:38
  • AW: Zeilen ausblenden - von GerdL am 12.09.2020 10:18:32
  • AW: Zeilen ausblenden - von Patrik Achermann am 14.09.2020 20:24:26
    • Gerne u. Danke für die Rückmeldung. o.w.T. - von Werner am 16.09.2020 05:32:21

Betrifft: Zeilen ausblenden von: Patrik Achermann
Geschrieben am: 11.09.2020 21:52:56

Hallo Miteinander
Ich bin auf Eure Hilfe angewiesen.
Habe eine Berechnungstabelle bei der ich folgendes ausführen möchte.

Wenn in der Zelle C2 eine 0 steht möchte ich das die Zeilen 24 bis und mit 30 ausgeblendet werden.
Und wenn in der Zeile C2 eine 1-???? steht sollten die Zeilen 13 bis und mit 19 ausgeblendet werden.

Gruss, Patrik

zur Hilfe die Datei:

https://www.herber.de/bbs/user/140200.xlsx

  

Betrifft: AW: Zeilen ausblenden
von: Werner
Geschrieben am: 11.09.2020 23:50:38

Hallo,

der Code gehört ins Codemodul des Tabellenblattes.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C2" Then
    Rows("24:30").Hidden = IIf(Target = 0, True, False)
    Rows("13:19").Hidden = IIf(Target >= 1, True, False)
End If
End Sub

Gruß Werner

  

Betrifft: AW: Zeilen ausblenden
von: GerdL
Geschrieben am: 12.09.2020 10:18:32

Moin, wenn in C2 manuell eingetragen wird, auch so:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C2" Then
        Rows("24:30").Hidden = (Target.Text = "0")
        Rows("13:19").Hidden = (Target.Value >= 1)
    End If
End Sub

Gruß Gerd

  

Betrifft: AW: Zeilen ausblenden
von: Patrik Achermann
Geschrieben am: 14.09.2020 20:24:26

Hallo

vielen, vielen Dank für die Hilfe

Gruss, Patrik

  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 16.09.2020 05:32:21

Beiträge aus dem Excel-Forum zum Thema "Zeilen ausblenden"