namen zoeken in tabel

[Pienjo]

'lo,

Momenteel stelt mij het volgende probleem:

Ik heb een lijst met posities (nummers 1 tem 26) waarachter een lijst met namen (a tem z) thuis hoort. Nu zou ik een alfabetische lijst willen maken van die namen met hun respectievelijke positienummers er achter.

Stijn

 

[brandernl]

Stijn,
Kan je een voorbeeld sturen hoe het resultaat er uit moet zien?
Heb je expres regels (10 en 18) leeg gelaten?

 

[brandernl]

beetje knutselen; zet eerst in blad2, cel B1 iets, bijvoorbeeld "verwijzing"

Sub Andersom()
    Dim rRange As Range
    Dim rCell As Range
    
    Set rRange = Worksheets("blad1").Range("A1:A26")
    For Each rCell In rRange
        rCell.End(xlToRight).Copy Worksheets("blad2").Range("A65536").End(xlUp).Offset(1, 0)
        rCell.Copy Worksheets("blad2").Range("B65536").End(xlUp).Offset(1, 0)
    Next
    Worksheets("blad2").Range("A2:B27").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub