Zeilen Ausblenden, wenn bestimmtes Wort vorhanden

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Zeilen Ausblenden, wenn bestimmtes Wort vorhanden

    Hallo Zusammen,

    ich bin gerade etwas verzweifelt
    habe ein Makro geschrieben, welches alle Zeilen ausblenden soll, wenn sich in der Zeile ein bestimmtes Wort ( in dem Fall Finanzierung) befindet.
    Allerdings blendet es jedesmal fast die gesamte Tabelle aus
    Screenshots vorher und nacher hängen bei

    Makro:
    Sub BestimmteZeilenAusblenden()
    Dim Zelle As Range
    For Each Zelle In ActiveSheet.UsedRange
    If Zelle.Value = Finanzierung And Rows(Zelle.Row).Hidden = False _
    Then Rows(Zelle.Row).Hidden = True
    Next Zelle
    End Sub

    Wo ist der Fehler ;(
    Bilder
    • 1.JPG

      158,71 kB, 1.606×425, 378 mal angesehen
    • 2.JPG

      36,01 kB, 1.623×90, 347 mal angesehen
    Entweder mit Or oder universell

    Visual Basic-Quellcode

    1. For Each Zelle In Intersect(UsedRange,Range("B:B"))
    2. Zelle.EntireRow.Hidden = Instr(1,"-Finanzierung-Datum-",Zelle.Value,vbTextCompare)>0
    3. Next Zelle
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „petaod“ ()