ich möchte eine Tabelle nach Artikelnummern, die in Zellen A2:A... stehen, filtern, indem ich in Zelle A1 eine Art.-Nr. eingebe. Drücke ich die Enter-Taste, soll nach dieser Nummer gefiltert werden.
Vielen Dank!
Gruß Gerhard
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
If Me.Cells(1, 1) = "" Then
Me.Columns("A2:A99").AutoFilter
Else
Me.Columns("A:A").AutoFilter Field:=1, _
Criteria1:="=" & ActiveSheet.Cells(1, 1)
End If
End Sub
MfG Bernd