Listbox mit Multiselect in Textbox

Forumthread: Listbox mit Multiselect in Textbox

06.06.2019 15:06:56

milena

Hallo zusammen,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox mit Multiselect in Textbox

06.06.2019 16:35:51

Hajo_Zi
AW: Listbox mit Multiselect in Textbox

07.06.2019 10:45:12

milena
AW: Listbox mit Multiselect in Textbox

07.06.2019 15:15:18

milena

AW: Listbox mit Multiselect in Textbox

06.06.2019 16:35:51

Hajo_Zi

Hallo Milena,
frage jemand der neben Dir sitzt der sieht die Datei.
Die meisten hier sehen Sie nicht.
Da Sie nicht auf Deinen Rechner schauen.
Vielleicht sollte die Datei verlinkt werden?
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

AW: Listbox mit Multiselect in Textbox

07.06.2019 10:45:12

milena

Hallo Hajo,
vielen Dank für deine Nachricht.
Leider kann ich das Dokument nicht hochladen da es viel zu groß ist.
Ich hatte gehofft dass mein Code dementsprechend reicht.
Hier noch der Code wie ich die Listbox gefüllt habe.

Private Sub ComboBox_Auftragsnummer_Change()
AN_Neu.ListBox_Anfragen.Clear
Text_EKTransport.Value = ""
Dim c As Range
Dim lz As Long
lz = Sheets(4).Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Sheets(4).Range("A5:A" & lz).Cells
If c.Value = ComboBox_Auftragsnummer.Value Then
With ListBox_Anfragen
.AddItem c.Offset(0, 1).Value
.List(.ListCount - 1, 1) = c.Offset(0, 29).Text
.List(.ListCount - 1, 2) = c.Offset(0, 30).Text
End With
End If
Next c
End Sub

ich hoffe es ist möglich mir auch mit den Informationen schon zu helfen und würde mich sehr über ein Feedback freuen.
VG Milena

AW: Listbox mit Multiselect in Textbox

07.06.2019 15:15:18

milena

Hallo Hajo,
Danke, ich konnte mein Problem mittlerweile lösen!
VG Milena

Beliebteste Forumthreads (12 Monate)

Listbox mit Multiselect in Textbox

Forumthread: Listbox mit Multiselect in Textbox

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread