Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord
Internet & hosting

Hoe kan ik een auto filter maken die gebruik maakt van Celgegevens en tevens rekening houdt met wildcards?

Hallo, Ik wil een macro met autofilter maken die naar een of meerdere cellen verwijst. Tevens moet de autofilter op de gegevens uit die cellen wildcards bevatten. Grofweg betreft het personen die een bepaalde betrokkenheid hebben. Stel ik wil op 'Klaas' laten filteren, dan wil ik alle regels zien waarin Klaas voor komt. Dus ook wanneer Klaas in combinatie met een andere naam in een cel staat. Bijvoorbeeld 'Klaas/Richard' en 'Dennis/Klaas'. Daarnaast wil ik ook op meerdere cellen kunnen filteren om zowel Klaas als Dennis (of meerdere personen) naar boven te halen. Als oplossing had ik het volgende (waarbij de namen in de 10e kolom staan, Field:=10) De bedoeling is om één, twee of meer namen in te kunnen vullen, tot een max van 5 namen. Drie Macro voorbeelden: ' A. Twee Cellen waarbij de cellen standaard gevuld zijn met ' ------' ActiveSheet.ListObjects("Tabel2").Range.AutoFilter Field:=10, Criteria1:= _ Array( _ "*" & Range("E4").Text & "*", _ "*" & Range("E5").Text & "*"), _ Operator:=xlFilterValues ' B. Drie Cellen waarbij de cellen standaard gevuld zijn met ' ------' ActiveSheet.ListObjects("Tabel2").Range.AutoFilter Field:=10, Criteria1:= _ Array( _ "*" & Range("E4").Text & "*", _ "*" & Range("E5").Text & "*", _ "*" & Range("E6").Text & "*"), _ Operator:=xlFilterValues ' C. Vier Cellen waarbij de cellen standaard gevuld zijn met ' ------' ActiveSheet.ListObjects("Tabel2").Range.AutoFilter Field:=10, Criteria1:= _ Array( _ "*" & Range("E4").Text & "*", _ "*" & Range("E5").Text & "*", _ "*" & Range("E6").Text & "*", _ "*" & Range("E7").Text & "*"), _ Operator:=xlFilterValues etc... De rede waarom ik de cel standaard vul met ‘ ------‘ is omdat een lege cel immers álles zou tonen door de wildcards. Bij de eerste (Voorbeeld A met enkel twee cellen) werkt het prima wanneer in 1 cel een naam is ingevuld en in de andere cel ' ------' staat. Of wanneer in beide cellen een naam in is gevuld. Maar wanneer ik 3 cellen in de macro heb of meer (Voorbeeld B en C), dan gaat het niet goed vanaf het moment dat ik twee namen of meer invul en in de rest van de cellen ' ------' laat staan. Ik krijg dan géén resultaat! Hoe kan ik dit verbeteren?