Zeilen ausblenden, die Text nicht enthalten
07.03.2017 12:08:36
Major
wie kann ich denn folgende Makros umwandeln mit dem Ziel:
Alle Zeilen (von 7 bis 500) im Tabellenblatt ausblenden von B bis R, die nicht einen bestimmten Text (Bsp. "Text") enthalten.
Wichtig... in der selben Zelle in dem sich der gesuchte Text befindet, können auch noch andere Wörter, Zahlen etc. stehen.
Das ganze durch "einblenden" rückgängig machen, sollte auch noch möglich sein.
Option Explicit
Const von = 7, bis = 500
Sub leere_Zellen_ausblenden()
Dim z&
For z = von To bis
If WorksheetFunction.Count(Range("D" & z & ":R" & z)) = 0 Then Rows(z).Hidden = True
Next
End Sub
Sub leere_Zellen_einblenden()
Sheets("Tabelle2").Select
Rows(von & ":" & bis).Hidden = False
End Sub
Danke für die Hilfe!
Gruss Major
Anzeige