Keuzelijst in userform met invoer in vba

[Schipperjte]

Hallo,

Het lukt met niet om een keuzelijst in een userform temaken .
Kan veel voorbeelden vinden maar dat gaat dan met een lijst in een excel blad , en dat wil ik eigenlijk niet

De bedoeling is een keuzelijst maken en dan de invoer in vba regelen.Met een lijst van zeg 15 namen
bv piet 1 tot en met piet 15.

dan zou het antwoord naar tekstbox 40 moeten

Wie kan me helpen ?

Bas

 

[HSV]

Zoiets?

 

[Schipperjte]

Ja dat lijkt er op ,maar kan ik deze lijst ook maken in vba .

Dus de geen lijst meer in een excel sheet ?

 

[HSV]

Met Additem:

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 15
    ComboBox1.AddItem "Piet " & i
Next
End Sub

 

[Schipperjte]

Het werkt bedankt ,:thumb:

zal die versie van Warme bakkertje ook een proberen

 

[Warme bakkertje]

Of als je verschillende namen hebt

Private Sub UserForm_Initialize()
Dim sq As String
    sq = "Piet" & "|" & "Jan" & "|" & "Floris"
    ComboBox1.List = WorksheetFunction.Transpose(Split(sq, "|"))
End Sub

 

[HSV]

Zoals je eerste oplossing was ook mijn eerste ingeving @Rudi, maar bedacht me dat de namen Peit1, Piet2, enz. vast fictief zouden zijn.
Dus maar een makkelijk aan te passen oplossing.

Je tweede oplossing is iets voor vergevorderden, en gaat richting de oplossingen van @snb. :thumb:

 

[Schipperjte]

Ja klopt , namen zijn fictief en zijn makkelijk bij temaken en te veranderen


heb de eerste genomen


Bedankt :d