ich habe eine liste in der verschieden Zellinhalte unterstrichen sind. Nun möchte ich nur diese angeszeigt bekommen. Mit dem normalen Filter geht das nicht. Habt ihr einen Vorschlag?
Danke schonmal!
Sub UAnzeigen()
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
anz = ws.Range("A65536").End(xlUp).Row
For z = 2 To anz
If ws.Cells(z, 1).Font.Underline xlUnderlineStyleSingle Then
ws.Rows(z).Hidden = True
End If
Next
End Sub
Jan