Tabelle über Suchfeld filtern

[ExcelNeuling99]

Hallo zusammen,

ich habe ein Problem und komme aktuell nicht weiter. Vielleicht weiß ja jemand Rat:)

Und zwar habe ich eine Tabelle mit sehr vielen Einträgen (mehreren Hundert). Mein Ziel ist es, dass ich über eine separate Zelle die Tabelle nach einer Teilenummer filter.

Beispiel:
Ich möchte, dass in der blauen Tabelle die Teilenummer 12345678 gefiltert wird. Dafür trage ich diese Teilenummer in die Zelle B1 ein (gelb markiert) (ohne manuell über die Tabelleüberschrift die Filterfunktion zu nutzen). 
Ist dies möglich?

Vielen Dank!

[WillWissen]

Hi,

kommen die Teilenummern öfters vor oder sind das jeweils Unikate?

[Frogger1986]

Hallo

Das könnte man mit vba! Formatiere den Bereich in eine intelligente Tabelle, benenne die Tabelle in "Artikel" und füge diesen Code in das Codefenster des Tabellenblatt ein! (Rechtsklick auf Tabellenreiter dann Code Anzeigen dann einfügen) Sobald die Zelle geändert wird, wird Gefiltert! Wird alles aus der Zelle gelöscht, wird der Filter zurückgesetzt!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address = "$B$1" Then
   
       If Range("B1") = "" Then
       
       ActiveSheet.ListObjects("Artikel").Range.AutoFilter Field:=4
       
       Else
       
       ActiveSheet.ListObjects("Artikel").Range.AutoFilter Field:=4, Criteria1:=ActiveSheet.Range("B1")
       
       End If
   
   End If

End Sub

[WillWissen]

Hi,

ich gehe jetzt mal davon aus, dass Teilenummern mehrfach vorhanden sein können. Dann würde ich, wenn, aus welchem Grund auch immer, die eingebauten Filtermöglichkeiten nicht genutzt werden (dürfen), diese Lösung (Makros dürfen nicht überall eingesetzt werden und zum Anpassen müssten ein paar Kenntnisse vorhanden sein) bevorzugen:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	Nach Teilenummer suchen:	12345679
2
3	Bezeichnung	Lieferant	Lieferantennummer	Teilenummer	Menge	Preis		HS		Bezeichnung	Lieferant	Lieferantennummer	Teilenummer	Menge	Preis
4	Bauteil 1	Lieferant A	144	12345678	755	135,34				Bauteil 2	Lieferant A	144	12345679	35333	13,6
5	Bauteil 2	Lieferant A	144	12345679	35333	13,6		5		Bauteil 2	Lieferant A	144	12345679	35333	13,6
6	Bauteil ABC	Lieferant B	155	98765432	5466	1,98
7	Bauteil 2	Lieferant A	144	12345679	35333	13,6		7

Zelle	Formel
H4	=WENN(D4=$B$1;ZEILE();"")
J4	=WENNFEHLER(INDEX(A:A;KKLEINSTE($H$4:$H$10;ZEILE(A1)));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Die Hilfsspalte kann irgendwo eingesetzt und bei Bedarf ausgeblendet werden.

[Dieter63]

Hallo,

mit dem Spezialfilter --> Unter Daten --> Filter --> Erweitert --> Liste an gleicher Stelle filtern

Achtung der KriterienBereich braucht die gleiche SpaltenÜberschrift -> Teilenummer

[ExcelNeuling99]

Hallo,

vielen Dank für die Antworten. Die Lösung mit dem VBA Code funktioniert gut! Nur ein "Problem". Und zwar muss der eingegebene Name GENAU der Teilenummer entsprechen. Geht das aber auch, dass die gefilterte Teilenummer die in B1 eingegebenen Zahlen BEINHALTET? Also ich gebe zum Beispiel 123 ein und er filtert mich auch 12345678 raus?

Danke!

[schauan]

Hallo,

die manuelle Eingabe birgt immer die Gefahr, dass man sich verschreibt und dadurch vielleicht kein oder ein falsches Ergebnis bekommt. Kannst DU nicht mit dem Autofilter arbeiten?

[Frogger1986]

nein das geht nicht, da die meines Wissens die Eingabe in die aktive Zelle nicht beim eingeben überwacht werden kann via VBA (ich lasse  mich  gern eines besseren belehren)

[Elex]

Hi

Für alle die mit 123xxx beginnen sollte der Code funktionieren. Wenn 123 in der Nummer irgendwo stehen soll xxx123xx dann entferne in der Zeile „If InStr(1, ArrWerte(n, 1), k, 1) = 1 Then“     das  = 1.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, k As String
Dim ArrWerte As Variant
Dim n As Long
If Target.Address = "$B$1" Then
  With ListObjects("Tabelle1")
    k = Range("B1").Text
    ArrWerte = .ListColumns(4).DataBodyRange
    For n = 1 To UBound(ArrWerte, 1)
      If InStr(1, ArrWerte(n, 1), k, 1) = 1 Then i = i & " " & ArrWerte(n, 1)
    Next n
    If i <> "" Then
      ArrWerte = Split(Mid(i, 2))
      ListObjects("Tabelle1").Range.AutoFilter Field:=4, Criteria1:=ArrWerte, Operator:=xlFilterValues
    End If
End With
End If
End Sub

Gruß Elex

[ExcelNeuling99]

Genial! Vielen Dank!