einzelne Spalten aus Listbox in andere Listbox

Private Sub Auswahl_übernehmen_Click()
If Len(Menge_Logistik_Artikel.Text) = 0 Then Exit Sub ' nur wenn alle dieser Felder ausgefüllt   _
_
_
sind, lässt sich der Button aktivieren
If Len(Logistikkategorie.Text) = 0 Then Exit Sub
With Me.ListBox1
If .ListIndex > -1 Then .RemoveItem (.ListIndex)
End With
Dim lngListcount1 As Long, lngListcount2 As Long, bolgefunden As Boolean, lloCol As Long
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
With ListBox1
.ColumnCount = 2
.AddItem
For lloCol = 0 To Vorauswahl.ColumnCount - 1
.List(.ListCount - 1, lloCol) = Vorauswahl.List(lngListcount1,  _
lloCol)  'Füge den Wert aus lbox1 zu lbox2 hinzu
Next
.List(.ListCount - 1, 3) = Menge_Logistik_Artikel.Text ' übernimmt die  _
dazugehörige Anzahl aus Textbox
.ColumnWidths = "1cm;2cm"
End With
End If
End If
Next
End Sub