Gegevens uit ListBox met druk op een knop in TextBox plaatsen

[HJ25]

Hallo allen! In de bijlage heb ik een userform gemaakt waarbij in de listbox de keuze gemaakt kan worden uit een aantal lettercombinaties. Hierbij kunnen meerdere aangevinkt worden. Is het mogelijk om er voor te zorgen dat er maximaal 3 aangevinkt kunnen worden? En kunnen de aangevinkte letters dan in de textboxen komen te staan door op de knop te drukken? Voorbeeld: wanneer AA, AB en AC aangevinkt zijn dan moet met een druk op de knop AA in de linker textbox, AB in de middelste textbox en AC in de rechter textbox komen te staan. Heeft iemand een idee of dit mogelijk is en hoe dit dan moet?

Alvast bedankt!!Bekijk bijlage Gegevens uit listbox naar textbox.xlsm

 

[HSV]

Private Sub CommandButton1_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
 If y <> 3 Then
   y = y + 1
      Me("textbox" & y) = ListBox1.List(i)
 Else
  MsgBox "Maximaal kunnen er drie aangevinkt worden"
   ListBox1.MultiSelect = 0
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
  End If
 End If
Next i
 ListBox1.MultiSelect = 1
End Sub

 

[HJ25]

Jaa perfect!! Hartstikke bedankt!

 

[MDN111]

Net iets te laat, vrees ik.

Grtz,
MDN111.

 

[HJ25]

Ah ik heb net die andere gebruikt... Maar die van jou werkt ook dus toch bedankt MDN111!!

 

[HJ25]

Private Sub CommandButton1_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
 If y <> 3 Then
   y = y + 1
      Me("textbox" & y) = ListBox1.List(i)
 Else
  MsgBox "Maximaal kunnen er drie aangevinkt worden"
   ListBox1.MultiSelect = 0
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
  End If
 End If
Next i
 ListBox1.MultiSelect = 1
End Sub

Een klein probleempje met deze code: de gegevens uit listbox1 moet nog steeds in 3 textboxen terecht komen, alleen niet in textbox 1, 2 en 3 maar in textbox 3, 4 en 5. Wanneer ik dit in de code hierboven aanpas komen de gegevens uit de listbox nog steeds in textbox 1, 2 en 3 terecht. Hoe kan ik dit oplossen?

 

[HSV]

Private Sub CommandButton1_Click()
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
 If y <> 3 Then
   y = y + 1
      Me("textbox" & y + 2) = ListBox1.List(i)
 Else
  MsgBox "Maximaal kunnen er drie aangevinkt worden"
   ListBox1.MultiSelect = 0
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
  End If
 End If
Next i
 ListBox1.MultiSelect = 1
End Sub

 

[HJ25]

Ja super!! Opnieuw bedankt!