zwei Listboxen einzelne Spalten vergleichen
13.02.2019 13:16:15
Tim
Lade ich via UserForm_Initialize() die Artikelnummern in (.ListCount - 1, 0) dann funktioniert der Vergleich mit meinem Makro. Jedoch soll von der Anordnung her, die Artikelnummern in (.ListCount - 1, 1) geladen werden, doch dann funktioniert der Vergleich nicht.
https://www.herber.de/bbs/user/127621.xlsm
Folgende Anpassung habe ich versucht (vergleiche erst ab Spalte 1), jedoch funktioniert das _ nicht, wer kann mir dabei helfen?
Private Sub CommandButton1_Click()
Dim lngListcount1 As Long, lngListcount2 As Long, bolgefunden As Boolean, lloCol As Long
For lngListcount1 = 1 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(lngListcount1) = True Then
bolgefunden = False
For lngListcount2 = 1 To UserForm2.ListBox1.ListCount - 1
If UserForm2.ListBox1.List(lngListcount2) = UserForm1.ListBox1.List( _
lngListcount1) Then bolgefunden = True: Exit For
Next
If Not bolgefunden Then
With UserForm2.ListBox1
.AddItem
.List(.ListCount - 1, 0) = UserForm1.ListBox1.List(lngListcount1, 0)
.List(.ListCount - 1, 1) = UserForm1.ListBox1.List(lngListcount1, 1)
.List(.ListCount - 1, 2) = UserForm1.ListBox1.List(lngListcount1, 2)
End With
End If
End If
Next
UserForm2.Show
End Sub
Anzeige