VBA Excel Zeilen mit Makro ausblenden

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    VBA Excel Zeilen mit Makro ausblenden

    Hallo,

    bin auch noch auf der Suche nach einem Makro was automatisch Zeilen ausblenden kann (mit Bedingung Zellwert = 0):

    Habe z.B. in Zelle i1 bis 500 Werte stehen (z.B. 3,0;0,0;51,05) , das gleiche in zelle g501 bis 560

    Ich brauch ein Makro das folgendes kann:

    Wenn in zelle i1 bis i500 (0,00) steht, dann z.B. bei Zelle i1 die ganze zeile 1 ausblenden
    +
    Wenn in zelle g501 bis g560 (0,00) steht, dann z.B. bei Zelle g511 die ganze zeile 511 ausblenden

    usw

    Wäre echt super wenn jemand weiß wie das geht


    Vielen Dank

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „SKHH“ ()

    So in etwa:

    Visual Basic-Quellcode

    1. Sub HideZeroRows()
    2. Set CellRange = Range("I1:I500,G501:G560")
    3. For Each Cell In CellRange
    4. Cell.EntireRow.Hidden = (Cell.Value = 0)
    5. Next
    6. End Sub
    Wenn du nur eine Zelle pro Zeile abprüfen willst, funktioniert das tadellos.
    Falls du kompliziertere Konstruktionen hast, musst du die logische Bedingung für die Hidden-Eigenschaft etwas aufwendiger gestalten.

    Wenn du auf Performance wert legst, kannst du noch den Screen-Update abschalten:

    Visual Basic-Quellcode

    1. Sub HideZeroRows()
    2. Application.ScreenUpdating = False
    3. Set CellRange = Range("I1:I500,G501:G560")
    4. For Each Cell In CellRange
    5. Cell.EntireRow.Hidden = (Cell.Value = 0)
    6. Next
    7. Application.ScreenUpdating = True
    8. End Sub
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende