Hallo
Ich möchte alle Zeilen, welche nicht den Inhalt "Test" haben (der kann innerhalb des Textes stehen), ausblenden.
Folgender Code, den mir die Recherche geliefert hat, blendet mir alle leeren Zeilen aus. Das was ich brauche, kann ich mit meinen VBA-Kenntnissen aber nicht eincodieren.
Vielleicht mir jemand dabei weiterhelfen?
Besten Gruß Rainer
Dim Bereich As Range
If ActiveCell.Row > 1 Then
Set Bereich = Range(Cells(1, ActiveCell.Column), ActiveCell.Offset(-1, 0))
On Error Resume Next
Bereich.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
On Error GoTo 0
End If