Excel - Maken van dropdown uit dynamische lijst in VBA

Kwestie

Ik heb geprobeerd een macro te maken die een vervolgkeuzelijst uit een dynamische lijst in kolom A kan maken. Tot nu toe heb ik de volgende code gevonden:

 Subtest () Bereik ("A1", Bereik ("A65536"). Einde (xlUp)). Naam = "MyList" cellen (1, 3) .Selecteer met selectie.Validatie. Verwijderen. Type toevoegen: = xlValidateList, AlertStyle : = xlValidAlertStop, Operator: = _ xlBetween, Formula1: = "= & MyList" .IgnoreBlank = False .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = Echte eind met eind Sub

Het oproepen van MyList werkt echter niet.

Oplossing

Probeer dit:

Ga naar gegevensvalidatie, kies lijst en typ = MijnLijst
Klik nu met de rechtermuisknop op het tabblad met bladen en selecteer weergavecode en plak de volgende code:

 Particulier Subwerkblad_Wijzigen (ByVal-doel als bereik) Als Doorsnijden (doel, kolommen ("A: A")) niets is, vervolgens Sub-Dimmen lRow As Integer lRow = Range ("A" & Rows.Count). End (xlUp). Rijbereik ("A1: A" & lRow) .Name = "MyList" End Sub