indsætte værdier i en Listboks i userform

Hej..

Har jeg forstået det rigtigt at når Userformen åbnes skal den lave en liste med (nr. - navn efternavn) og når du har fundet den person du ønsker skal der kun stå nummeret tilbage?

Jep. Det er helt korrekt

Denne er lavet med en Combobox, håber det er ok.

Den kræver at række D er ledig, hvis nr-navn-efternavn står i a-b-c virker den.

Private Sub combobox1_afterupdate()

sog = ComboBox1
R = Range("d65000").End(xlUp).Row
For Each Cell In Range("D1:D" & R)
If sog = Cell Then ComboBox1.Value = Cell.Offset(0, -3)
Next
Range("D:D").ClearContents

End Sub

Private Sub UserForm_activate()

Range("D1").Select
    ActiveCell.FormulaR1C1 = "=RC[-3]&"" - "" &RC[-2]& "" "" &RC[-1]"
    R = Range("a65000").End(xlUp).Row
    Selection.AutoFill Destination:=Range("D1:D" & R)
    ActiveWorkbook.Names.Add Name:="Total", RefersToR1C1:=Range("D1:D" & R)

With ComboBox1
    .RowSource = "Total"
    .ListIndex = 0
End With

Private Sub ListBox1_Click()
    MsgBox " Du valgte nr " & ListBox1
End Sub



Private Sub UserForm_Initialize()
    With Me.ListBox1
        .RowSource = "Ark1!A2:d10"' ret til dit område
        .BoundColumn = 1
        .ColumnCount = 3
        .ColumnHeads = True
        .ColumnWidths = "20;50;50"
    End With
End Sub

Jeg kunne desværre ikke få lerskovs kode til at virke.

Kabbaks kode sad lige i skabet. Jeg rettede dog lige listboksen til en Comboboks :-)
Mange tak for hjælpen.

Så mangler vi bare svar.

Respekt Kabbak, så lære jeg oså noget nyt.

Et svar ;-))