Hallo allemaal,
Ik heb een simpel Userform met een tekstbox en Listbox. Wanneer ik een reeks van gegevens in het textbox invul en een selectie van een keuzelijst maakt dan krijg ik de gegevens te zien in het tabel. Maar deze staan niet op de zelfde regel. Weet iemand waar het aan ligt?
Ik heb een simpel Userform met een tekstbox en Listbox. Wanneer ik een reeks van gegevens in het textbox invul en een selectie van een keuzelijst maakt dan krijg ik de gegevens te zien in het tabel. Maar deze staan niet op de zelfde regel. Weet iemand waar het aan ligt?
Code:
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Blad1")
myVar = ""
For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) Then
If myVar = "" Then
myVar = Me.ListBox1.List(x, 0)
Else
myVar = myVar & "," & Me.ListBox1.List(x, 0)
End If
End If
Next x
ThisWorkbook.Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0) = myVar
End Sub