I have the follwing databse on worksheet keuze
Naam aandeel Aantal Daelman Talloen VdLinde Annie
AbnAmro 107 1
Accor 62
Ackermans 90 1 1
Aegon 225 1
Agfa Gevaert 86
Ahold 367
Almany 35
Arcelor 128
Asml 190
Aventis 30
Barco 28 1
Basf 42


met de volgende formule in vb plaats ik het uitgebreid filteren op het
werklad portefeuile
Database is een naam die gegevens is aan het bereik
Database = =Keuze!$A$1:$S$68
on cel v1 en v2 on worksheet keuze
V1 = the name of the person who coms form the stheet Portefeuille
v2 = mumber 1

Set rng = Range("Database")
rng.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Keuze").Range("v1:v2"), _
CopyToRange:=Sheets("Portefeuille").Range("A20"), _
Unique:=False


what I want obtain after advaced filter is the following
that i have only the naam aandeel en aantal on the sheet Portefeuille
And that for the example : that meets next condition
person Daelman what is given in cel a2 on the worksheeet portefuille and
stand also on the worksheet keuze in v1 and also v2 on worksheet keuze

that is what I want obtain
AbnAmro 107
Accor 62
Ackermans 90
Aegon 225
Agfa Gevaert 86
Ahold 367
Almany 35

But what i have after advaced filter is that

Naam aandeel Aantal Daelman Talloen VdLinde Annie
AbnAmro 107 1
Accor 62
Ackermans 90 1 1
Aegon 225 1
Agfa Gevaert 86
Ahold 367
Almany 35

Groetjes glenn