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