Ich möchte in einer Auflistung leere Zeilen ausblenden.
Die Bedingung lautet wenn in der Zelle Q20:q60 ein x steht soll die entsprechende zeile ausgeblendet werden. wie kann ich das Umsetzen?
lg Carsten
Sub ZeilenAusblenden()
Dim i As Integer
For i = 20 To 60
If UCase(Cells(i, 17).Value) = "X" Then Cells(i, 17).EntireRow.Hidden = True
Next i
End Sub
Gruß
Bertram
Sub ZeilenAusblenden2()
If UCase(Cells(20, 17).Value) = "X" Then Range("Q20:Q60").EntireRow.Hidden = True
End Sub
Gruß
Bertram