Listboxauswahl in andere Listbox übernehmen
05.10.2018 17:39:38
Tim
ich habe einen Code bereits im Forum gefunden, der es mir ermöglicht meine Auswahl aus einer Listbox in eine andere zu übernehmen und das nur einmal (quasi keine Mehrfachübernahme möglich). Jetzt übernimmt dieser Code aber nicht die komplette Zeile sondern nur den ersten Eintrag. Meine Versuche die komplette Zeile zu übernehmen scheiterten. Zudem soll in der neuen Listbox in einer weiteren Spalte die dazugehörige Menge aus einer Textbox übernommen werden.
Hier der Code den ich gefunden habe:
Private Sub Auswahl_übernehmen_Click()
Dim lngListcount1 As Long, lngListcount2 As Long, bolgefunden As Boolean
For lngListcount1 = 0 To Vorauswahl.ListCount - 1 'suche in der ganzen listbox1
If Vorauswahl.Selected(lngListcount1) = True Then 'wenn der wert an der stelle markiert _
ist, dann
bolgefunden = False
For lngListcount2 = 0 To ListBox1.ListCount - 1
If ListBox1.List(lngListcount2) = Vorauswahl.List(lngListcount1) Then _
bolgefunden = True: Exit For 'wenn Werte gleich dann
Next
If Not bolgefunden Then ListBox1.AddItem Vorauswahl.List(lngListcount1) & _
Textbox1.Value 'Füge den Wert aus lbox1 zu lbox2 hinzu und soll die Menge aus der Textbox übernehmen
End If
Next
End Sub
Anzeige