doppelte Werte in Listbox vermeiden
18.11.2018 11:03:22
Andre
habe zwei Listboxen mit je 5 Spalten in einer UserForm.
In der ersten ListBox suche ich Lagerbestände heraus, markiere sie und übergebe sie per CommandButton an die zweie ListBox.
Jetzt möchte ich noch eine Abfrage einbauen, dass vor dem Übergeben die Werte in der zweiten Spalte geprüft werden und wenn der Eintrag schon vorhanden ist, soll eine MsgBox aufgehen mit dem Hinweis "bereits vorhanden"
Könnte mir jemand den Code ergänzen?
Private Sub CommandButton1_Click()
Dim lst_A, lst_B As Control
Dim idx_B As Integer
Dim lng As Long
Set lst_A = UserForm_LAGER.ListBox1
Set lst_B = UserForm_LAGER.ListBox2
idx_B = lst_B.ListCount
For lng = 0 To lst_A.ListCount - 1
If lst_A.Selected(lng) Then
With lst_B
.AddItem
.Column(0, idx_B) = lst_A.List(lng, 0)
.Column(1, idx_B) = lst_A.List(lng, 1)
.Column(2, idx_B) = lst_A.List(lng, 2)
.Column(3, idx_B) = lst_A.List(lng, 3)
.Column(4, idx_B) = lst_A.List(lng, 4)
End With
idx_B = idx_B + 1
End If
Next lng
End Sub