mit dem folgenden Coder von Bernd, dem ich nochmal dafür danke, den ich mit Suchbegriff auf A2 geändert habe, wird nicht richtig gefiltert. Es wird lediglich die die letzte belegte Zeile +1 gefiltert.
Ich habe sicher falsche Filternagben im Code und bitte um Berichtigung.
Es soll in Spalte B nach dem Suchbegriff aus Tabelle1, A2, gesucht werden und alle Zeilen mit dem Suchbegriff sollen angezeigt werden.
Am liebsten wäre mir, wenn per Inputbox der Suchbegriff eingegeben werden könnte.
Danke für Hilfe und
Gruß, Dieter(Drummer)
Code unter Tabellenblatt1:
'Herber: von Bernd am 10.09.2017 17:00:48
'Spalte B nach Sucbegriff aus A2 filtern
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A2")) Is Nothing Then Exit Sub 'Suchbegriff in A2
If Me.Cells(1, 2) = "" Then
Me.Columns("B:B").AutoFilter
Else
Me.Columns("B:C").AutoFilter Field:=1, _
Criteria1:="=" & ActiveSheet.Cells(2, 4)
End If
End Sub
Komplette Datei (Beisliele aus Herber's Archiv) anbei:https://www.herber.de/bbs/user/116200.xlsm