Dynamische SUCHE möglich? Spielerei

Hallo Experten,
ist zwar eine Spielerei, wäre vielleicht aber schön wenn es geht.
Hiermit suche ich meiner Tabelle nach dem Suchbegriff, den ich in B2 geschrieben habe.
Suchbegriff = ActiveSheet.Range("$B$2")
ActiveSheet.Range("$A$10:$O$2000").AutoFilter Field:=2, _
Criteria1:="=*" & Suchbegriff & "*", Operator:=xlAnd
Suche ich z.B. nach Handschuhen in der Liste, kann es reichen wenn ich nur Hand schreibe und dann das Makro aktiviere. Die Auswahl könnte übersichtlich sein, wenn nicht viele Sachen mit Hand in der Liste sind.
Mist finde ich es damit, wenn viele Hand Dinge in der Liste sind, Handwaschpaste, Handtuch, Einhandschleifer etc.
Richtig schön wäre es, wenn bei Eingabe in B2 die Liste sich mit jedem weiteren Buchstaben anpassen würde.
Dann könnte man so lange schreiben, bis das Ergebnis übersichtlich genug ist und man seine Suche schnell greifbar hat.
Verständlich ausgedrückt?
Gruß Marcy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim Suchbegriff As String Suchbegriff = TextBox1 If Suchbegriff = "" Then Exit Sub With ActiveSheet.Range("$A$10:$O$2000") .AutoFilter .AutoFilter Field:=2, Criteria1:="*" & Suchbegriff & "*" End With End Sub

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim Suchbegriff As String Suchbegriff = TextBox2 If Suchbegriff = "" Then Exit Sub With ActiveSheet.Range("$A$9:$O$2000") .AutoFilter .AutoFilter Field:=1, Criteria1:="*" & Suchbegriff & "*" End With End Sub

Dim Suchbegriff As Long Suchbegriff = Clng(TextBox2) If Suchbegriff = 0 Then Exit Sub With ActiveSheet.Range("$A$9:$O$2000") .AutoFilter .AutoFilter Field:=1, Criteria1:="*" & Suchbegriff & "*" End With

Hallo Mustafa,
danke für Deine Hilfen.
Vermutlich geht Dein Code, in meiner Tab aber nicht.
Hier stimmt aber was anderes nicht.
Wenn ich in Spalte A manuell Autofilter/ Zahlenfilter/ Benutzd./ enthält wähle, kommt auch nichts.
Beginnt mit funktioniert auch nicht.
Ist größer als usw. funktioniert.
Der Code von Hary zu TextBox1, findet seltsamer Weise auch Eingaben von Zahlen in Spalte B.
In der Bezeichnung steht bei manchen Dingen der Durchmesser oder so. Wenn ich also in TextBox1 eine Zahl eingebe, klappt es auch mit Hary´s Code, für Spalte B.
Das hier scheint ein ganz anderes Problem zu sein. Es geht selbst manuell nicht.
Habe die Spalte schon kopiert und als Werte neu eingefügt, nichts gebracht.
Gruß Marcy

Beliebteste Forumthreads (12 Monate)

Dynamische SUCHE möglich? Spielerei

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dynamische SUCHE möglich? Spielerei

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread