Zeile markieren 24.10.2020 05:31:21 Lieske 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é
AW: Zeile markieren 24.10.2020 07:14:03 Nepumuk Hallo André, teste mal: Option ExplicitPublic 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 NextEnd SubPublic Sub Zeilen_einblenden() Rows.Hidden = FalseEnd Sub Gruß Nepumuk Anzeige
AW: Zeile markieren 24.10.2020 12:49:06 Herbert_Grom Hallo, vielleicht, weil in deinem Sheet das Wort "RICHTIG" gar nicht vorkommt? Servus