Dim z As Integer
Dim x As Integer
 
z = CmbBicheonMastery1.ListIndex
 
If IsNumeric(CmbBicheonMastery1.List(z)) = True Then
'Überprüfen ob es eine Zahl ist
 
If Isnull(CmbBicheonMastery1.List(z)) = False Then
'Überprüfen ob es null ist
 
For x = -1 To list1.ListCount
If list1.List(x) <> CmbBicheonMastery1.List(z) Then
'Überprüfen ob die zahl schon existiert
 
list1.AddItem = CmbBicheonMastery1.List(z)
list2.AddItem = CmbBicheonMastery2.List(z)
'Hier kann man dann noch weitere Listen hinzufügen für z.B. Infos
 
End If
Next x
End If
End If