Sucheergebnisse anzeigen und alle anderen Zeilen löschen

[Kuwer]

Hallo Andi,

dann probiere es mal damit:

Private Sub Worksheet_Change(ByVal Target As Range)

 With Target.Cells(1)

   If .Row = 1 Then

     .Activate

     If Me.AutoFilterMode Then

       If Len(.Value) Then

         If Me.AutoFilter.Range.Columns.Count = 1 Then

           Me.Cells.AutoFilter

           .EntireColumn.AutoFilter Field:=1, Criteria1:="=" & .Value & "*"

         Else

           Me.Cells.AutoFilter Field:=.Column - Me.AutoFilter.Range.Column + 1, Criteria1:="=" & .Value & "*"

         End If

       Else

         If Me.AutoFilter.Range.Columns.Count = 1 Then

           Me.Cells.AutoFilter

         Else

           Me.Cells.AutoFilter Field:=.Column - Me.AutoFilter.Range.Column + 1

         End If

       End If

     Else

       If Len(.Value) Then

         .EntireColumn.AutoFilter Field:=1, Criteria1:="=" & .Value & "*"

       End If

     End If

   End If

 End With

End Sub

Gruß Uwe

[Andi1965]

dann probiere es mal damit:

Hallo Uwe,

vielen Dank so hat es super gut funktioniert. Kann alle Zellen in Zeile 1 zum Filtern hernehmen. Genauso habe ich es mir vorgestellt.

Grüße
Andi