Hallo,
ich halte mich da leider auch nur an meine Vorgaben.
1. Die Überschriften Zeile ist die 5.
2. Die Daten beginnen in Spalte C
3. Im Idealfall von C - F. ^^
4. Die Zelle ist I3
Ich habe schon einge Foren durchforstet und es mit diesem Coe probiert:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim aBegriff As String
Dim rFind As Range
Dim loZeile As Long
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Rows.Hidden = False
aBegriff = Range("I3").Text
Set rFind = Cells.Find(What:=aBegriff, After:=Cells(6, 1), LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not rFind Is Nothing Then
If aBegriff <> "" Then
For loZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
Cells(loZeile, 1).EntireRow.Hidden = Application.CountIf(Rows(loZeile), "*" & rFind & "*") = 0
Next loZeile
End If
End If
Application.ScreenUpdating = True
End Sub
Allerdings kommt da oftmals nur eine Zeile obwohl es mehrere gibt.
Lg, Werner ^^
|