Zoeken meerdere items via tekstbox

[kenneth123]

Ik heb een excel inventaris lijst in tabblad "Inventaris"
In tabblad "Home" heb ik een textbox gemaakt die zou moeten zoeken in kolom A van tabblad "Inventaris" en deze filteren.
Als ik 1 nummer opzoek werkt dit, 2 ook nog maar als ik meerdere nummers opzoek werkt dit niet meer.
Hoe kan ik het toevoegen in mijn VBA code om meerdere items te zoeken en weer te geven via autofilter?
Heb al vanalles getest maar het wil niet lukken.

VBA die ik nu gebruik in bijlage.

 

[edmoor]

Je hebt meer kans om goede antwoorden te krijgen als je je Excel document plaatst in plaats van alleen een tekst bestand met je code.

 

[kenneth123]

Er staat veel vertrouwelijke info in, dan moet ik eerst veel aanpassingen doen.
Als ik hier op deze manier niet uitkom zal ik dat wel doen, want deze functie zou echt een grote meerwaarde zijn voor het bestand en me zeer veel tijd besparen.

 

[edmoor]

Gewoon een voorbeeld met een gevulde kolom A en je Textbox1 lijkt me voldoende.

 

[kenneth123]

Ok, bij deze.

 

[HSV]

Het laatste stukje van de code.

For i = 0 To UBound(zoektermen)
        zoektermen(i) = Trim(zoektermen(i)) ' Verwijder onnodige spaties
        If zoektermen(i) <> "" Then
            criteria(i) = zoektermen(i)
        End If
    Next i
    
    ' Pas AutoFilter toe met meerdere zoektermen (OR-logica)
    wsInventaris.Range("A1:A" & lastRow).AutoFilter 1, criteria, 7

 

[AHulpje]

A2 t/m A41 zijn getallen voorafgegaan door een ', dus die worden geïnterpreteerd als tekst.
En cel A42 niet, en dat is juist de derde waarde die je wilt vinden!

Zet daar ' voor en gebruik de code van HSV.
Als je met wildcards wilt filteren kun je slechts 2 filterwaarden gebruiken.

 

[snb]

Tekst is gelijk aan x of gelijk aan y met een Array(); Criteria1 = Array(); operator 7 (xlFilterValues)

Sheet1.ListObjects(1).Range.AutoFilter 2, Array("Pork", "Quiche"), 7

 

[HSV]

A2 t/m A41 zijn getallen voorafgegaan door een ', dus die worden geïnterpreteerd als tekst.
En cel A42 niet, en dat is juist de derde waarde die je wilt vinden!

Zet daar ' voor en gebruik de code van HSV.

Totale onzin.

 

[AHulpje]

@HSV
Maar dat er geen ' in cel A42 staat is wel waar.

 

[HSV]

Dat klopt wel ja, maar is niet nodig om die te plaatsen.
Met of zonder de apostrof werkt #6 ook.

 

[cow18]

Active_X controls zijn een beetje uit de mode wegens "gevaarlijk", die moet je vermijden.
Dus heb ik even A1 gebruikt voor je invoer, waarbij je dan een spatie of een alt+enter gebruikt om de verschillende zoekstrings te scheiden.
Met de knop worden die netjes in de tabel TBL_Gezocht gezet en die wordt gebruikt voor de formules in de kolom "filter". Nu hoef je enkel te filteren in de "filter"-kolom op waarden >0

 

[peter59]

Jammer dat TS nog niets heeft laten weten.
Zelf ook nog maar een duit in het zakje doen.
Het is dan wel niet met een macro en/of textbox maar met een tabellen en power query.