AW: Zeile ausblenden, wenn Bedingung erfüllt wird
01.03.2018 16:52:11
UweD
Hallo
Es wurden nur reine Texte geprüft.
So werden auch Formelergebnisse mit bearbeitet
Sub weg_damit()
Dim SP As Integer, LR As Double, Z
SP = 4 'Spalte D
If WorksheetFunction.CountIf(Columns(SP), ">""""") > 0 Then 'Prüfen ob Text vorhanden
For Each Z In Union(Columns(SP).SpecialCells(xlCellTypeConstants, 2), _
Columns(SP).SpecialCells(xlCellTypeFormulas, 2))
Select Case Left(Z, 3)
Case "(R)", "(2)", "(3)"
Z.EntireRow.Hidden = True
Case Else
Z.EntireRow.Hidden = False
End Select
Next
End If
End Sub
LG UweD