3 pulldown menu's

[Gum2]

In bijgevoegd bestand wil ik d.m.v. vba code 3 pulldown menu's maken in de cellen B12,C12 en D12.

Onderstaande code gebruik ik om de formule "=Item" (= named range B3:B5) aan cel B12 toe te kennen :

Range("B12").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Item"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Gebruik Pulldown"
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Deze code werkt zonder problemen.
Indien ik echter de formule "=INDIRECT(VERT.ZOEKEN($B$12;List;2;ONWAAR))" aan cel C12 (List = named range I3:K5) wil toekennen krijg ik de foutmelding 'fout 1004 tijdens uitvoering : Door de toepassing of door object gedefinieerde fout'.
Ik heb deze formule ook handmatig in cel C10 getest en dan blijkt de formule gewoon te werken.
Ergens maak ik blijkbaar een fout in het toevoegen van de formule in vba !
Wie kan/wil mij hierbij helpen?

 

[HSV]

Zoek het verschil.

 frm = "=INDIRECT(VLOOKUP($B$12,List,2,False))"

 

[Gum2]

@HSV : bedankt voor de reactie.
Ik zie het verschil maar dat lost het probleem niet op.
Of ik nu de engelse of de nederlandse versie gebruik de foutmelding blijft hetzelfde.

 

[HSV]

Ik hoop dat het verschil goed is opgemerkt, het werkt prima bij mij.

 

[Gum2]

Ik hoop dat het verschil goed is opgemerkt, het werkt prima bij mij.

Daar heb ik dus behoorlijk overheen gekeken! Ik heb de punt komma nu veranderd in een komma en het werkt nu prima.
Bedankt voor de hulp!

 

[HSV]

Graag gedaan,

Formules worden in Vba altijd in het Engels geschreven tenzij je de functie ".Formulalocal" gebruikt.
Dan kan je de formule schrijven in de taal van de gebruiker en met gebruik van A1-verwijzingen.

 

[Gum2]

Weer wat geleerd, nogmaals bedankt!