Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile markieren

Betrifft: Zeile markieren von: Lieske
Geschrieben am: 24.10.2020 05:31:21

Hallo Profis,
habe im Archiv ein Macro gefunden das wenn in Spalte D das Wort "RICHTIG"
vorkommt die Zeile ausbenden soll.
Leider funktioniert das Macro bei mir nicht.

Was mache ich falsch?

https://www.herber.de/bbs/user/141051.xlsm

Gruss André

Betrifft: AW: Zeile markieren
von: Nepumuk
Geschrieben am: 24.10.2020 07:14:03

Hallo André,

teste mal:

Option Explicit

Public Sub Zeilen_ausblenden()
    
    Const SEARCH_COLUMN As Long = 4
    Const START_ROW As Long = 2
    
    Dim objCell As Range
    
    For Each objCell In Range(Cells(START_ROW, SEARCH_COLUMN), Cells(Rows.Count, SEARCH_COLUMN).End(xlUp))
        
        objCell.EntireRow.Hidden = Not objCell.Value
        
    Next
End Sub

Public Sub Zeilen_einblenden()
    Rows.Hidden = False
End Sub

Gruß
Nepumuk

Betrifft: AW: Zeile markieren
von: Hajo_Zi
Geschrieben am: 24.10.2020 09:35:16

Hallo André,

warum nicht ohne VBA? Autofilter.

GrußformelHomepage

Betrifft: AW: Zeile markieren
von: Herbert_Grom
Geschrieben am: 24.10.2020 12:49:06

Hallo,

vielleicht, weil in deinem Sheet das Wort "RICHTIG" gar nicht vorkommt?

Servus

Beiträge aus dem Excel-Forum zum Thema "Zeile markieren"