Meerdere items selecteren in keuzelijst (op een userform) transporteren naar één cel

[Nudi]

Beste experts,

Ik ben op het moment bezig om een registratiebestand te maken in excel, maar loop alleen tegen een probleem op. Zoals jullie kunnen zien heb ik een userform gemaakt waar ik de data kan invoeren. Bijna alles werkt naar behoren, behalve het keuzelijst. Mijn vraag is, kan ik meerdere namen selecteren in het keuzelijst en als ik dan op de "invoeren" knop druk, deze namen (gescheiden door een komma) in één cel weergegeven kunnen worden? Zouden jullie mij hiermee kunnen helpen?
Bekijk bijlage 280773Bekijk bijlage Voorbeeld KAM registratie.xlsm
Alvast bedankt!

Mvg Nudi

 

[Conseclusie]

Maak op je formulier een nieuwe knop (CommandButton10) en hang er deze code onder:

Private Sub CommandButton10_Click()
[A1] = ""
For lItem = 0 To Deelnemers.ListCount - 1
    If Deelnemers.Selected(lItem) = True Then
        [A1] = [A1] & "," & Deelnemers.List(lItem)
    End If
Next
End Sub

 

[Nudi]

Beste bedankt voor uw reactie,

maar is er ook een mogelijkheid als ik met een nieuwe rij begin dat ik weer in het keuzelijst nieuwe namen kan selecteren en dat deze namen dan in een cel terechtkomen van datzelfde rij onder kolom deelnemers?

Alvast bedankt!

 

[Conseclusie]

Dan moet je code invoegen onder de bestaande code van de invoer-knop:

Private Sub OKButton_Click()
Dim EmptyRow As Long

Sheets("Toolboxdata").Activate

EmptyRow = WorksheetFunction.CountA(Range("A:A")) + 3 'Lege rij opzoeken

Cells(EmptyRow, 1).Value = Projectnummer.Value
Cells(EmptyRow, 2).Value = Projectnaam.Value
Cells(EmptyRow, 3).Value = Omschrijving.Value
Cells(EmptyRow, 4).Value = Datum.Value
Cells(EmptyRow, 5).Value = Gehoudendoor.Value
Cells(EmptyRow, 6).Value = Medehouder.Value
Cells(EmptyRow, 7).Value = ""
For lItem = 0 To Deelnemers.ListCount - 1
    If Deelnemers.Selected(lItem) = True Then
        Cells(EmptyRow, 7).Value = Cells(EmptyRow, 7).Value & "," & Deelnemers.List(lItem)
    End If
Next
End Sub

 

[Nudi]

Niceee! Hij werkt!

Hartstikke bedankt

Mvg Nudi

 

[gast0660]

Is dit de bedoeling?

 

[snb]

de keuzelijst
dezelfde rij

Private Sub OKButton_Click()
   For j=0 to Deelnemers.ListCount - 1
    If Deelnemers.Selected(j) Then c00=c00 & "," & Deelnemers.List(j)
   Next

   Sheets("Toolboxdata").cells(rows.count,1).end(xlup).offset(1).resize(,7)=array(Projectnummer,Projectnaam, Omschrijving,Datum,Gehoudendoor,Medehouder,mid(c00,2))
End Sub