Excel - Oprettelse af dropdown fra dynamisk liste i VBA

Problem

Jeg har forsøgt at lave en makro, der kan oprette en rulleliste fra en dynamisk liste i kolonne A. Hidtil har jeg fået følgende kode:

 Sub-test () Range ("A1", Range ("A65536"). Slut (xlUp)). Navn = "MyList" Cells (1, 3) .Vælg med Selection.Validation .Delete .Add Type: = xlValidateList, AlertStyle = = "" .InputMet .ShowError = True End med End Sub 

Men at ringe MyList virker ikke.

Opløsning

Prøv dette:

• Gå til data validering, vælg liste og skriv = MyList
• Højreklik nu på arkfanen og vælg visningskode og indsæt følgende kode:

 Private Sub Worksheet_Change (ByVal Target As Range) Hvis Intersect (Target, Columns ("A: A")) Er der ikke noget derefter Afslut Sub Dim lRow Som Integer lRow = Range ("A" & Rows.Count) .End (xlUp). Rækkevidde ("A1: A" & lRow) .Name = "MyList" End Sub 

• Denne kode ændrer rækkevidden af ​​MyList, når der foretages en ændring i kolonne A.

Takket være TrowaD for dette tip.