Listbox mit Multiselect in Textbox
06.06.2019 15:06:56
milena
momentan habe ich eine Listbox in welcher nur ein Preis inkl. dem zugehörigen Fahrer ausgewählt werden kann. Diese wird dann in je eine TextBox übernommen.
Der Code sieht so aus.
Private Sub ListBox_Anfragen_Click()
Text_EKTransport.Value = ""
With Me.ListBox_Anfragen
Text_EKTransport.Value = .List(.ListIndex, 1)
Text_Spedition.Value = .List(.ListIndex, 0)
End With
Text_EKTransport.SetFocus
Text_Spediteur.SetFocus
End Sub
nun möchte ich, dass man mehrere Werte auswählen kann und diese dann in der TextBox automatisch aufaddiert werden bzw. die Spediteure mit einem "," getrennt aufgezeigt werden in der TextBox.
Ich hoffe jemand kann mir weiterhelfen.
Vielen Dank und beste Grüße,
Milena