ich möchte gerne das beim Anklicken einer Listbox der Wert in eine Textbox eingetragen wird.
Einschränkung, es dürfen nur 5 Elemente in der Listbox ausgewählt werden.
Danke!
Gruß, Olga
https://www.herber.de/bbs/user/118458.xlsm
Private Sub ListBox1_Change()
Dim iCounter As Integer
Dim iSelectedCount As Integer
iSelectedCount = 0
For iCounter = 1 To ListBox1.ListCount Step 1
If ListBox1.Selected(iCounter - 1) = True Then
iSelectedCount = iSelectedCount + 1
End If
Next
If iSelectedCount >= 6 Then 'hier Maximum +1 festlegen
ListBox1.Selected(ListBox1.ListIndex) = False
MsgBox "begrenzt auf 5 Einträge", vbInformation + vbOKOnly
End If
End Sub
MfG TomPrivate Sub CommandButton2_Click()
Dim lngIndex As Long, lngCount As Long
For lngIndex = 1 To 5
Me.Controls("TextBox" & lngIndex) = ""
Next
With ListBox1
For lngIndex = 0 To .ListCount - 1
If .Selected(lngIndex) Then
lngCount = lngCount + 1
If lngCount > 5 Then Exit For
Me.Controls("TextBox" & lngCount) = .List(lngIndex)
End If
Next
End With
End Sub
Private Sub ListBox1_Change()
Dim lngIndex As Long, lngCount As Long
With ListBox1
For lngIndex = 0 To .ListCount - 1
If .Selected(lngIndex) Then
lngCount = lngCount + 1
If lngCount > 5 Then .Selected(lngIndex) = False
End If
Next
End With
End Sub