Ich möchte in einem Bereich alle Zeilen ausgeblendet haben,
in denen der Suchbegriff nicht vorkommt.
Eine "Ganz-String"-Lösung habe ich in der Recherche schon gefunden.
Diese möchte ich um eine Teilstring-Suche erweitern.
Sub Ausblenden()
Dim rng As Range
Application.ScreenUpdating = False
If [C4] = "" Then Range("E9:E27").Rows.Hidden = False: Exit Sub
For Each rng In Range("E9:E27")
If rng <> "" Then
If rng <> [C4] Then
rng.Rows.Hidden = True
Else
rng.Rows.Hidden = False
End If
End If
Next
Application.ScreenUpdating = True
End Sub
kann mir jemand weiterhelfen?
vielen Dank
Frank Zaske