Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen ausblenden

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"