Herbers Excel/VBA-Archiv
Zeile markieren
- Zeile markieren von Lieske vom 24.10.2020 05:31:21
- AW: Zeile markieren - von Nepumuk am 24.10.2020 07:14:03
- AW: Zeile markieren - von Hajo_Zi am 24.10.2020 09:35:16
- AW: Zeile markieren - von Herbert_Grom am 24.10.2020 12:49:06
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é
von: Nepumuk
Geschrieben am: 24.10.2020 07:14:03
Hallo André,
teste mal:
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
von: Hajo_Zi
Geschrieben am: 24.10.2020 09:35:16
Hallo André,
warum nicht ohne VBA? Autofilter.
von: Herbert_Grom
Geschrieben am: 24.10.2020 12:49:06
Hallo,
vielleicht, weil in deinem Sheet das Wort "RICHTIG" gar nicht vorkommt?
Servus