Dim Liste1 As Integer, Liste2 As Integer
Dim Wert1 As String, Wert2 As String
Dim lDelIndexCount As Long
Dim DelIndex() As Long
 
List3.Clear
List4.Clear
 
lDelIndexCount = 0
ReDim DelIndex(lDelIndexCount)
 
For Liste1 = 0 To List1.ListCount - 1
    Wert1 = List1.List(Liste1)
    For Liste2 = 0 To List2.ListCount - 1
        Wert2 = List2.List(Liste2)
        If Wert2 = Wert1 Then
            List3.AddItem Wert2
            DelIndex(lDelIndexCount) = Liste1
            lDelIndexCount = lDelIndexCount + 1
            ReDim Preserve DelIndex(lDelIndexCount)
        Else
            List4.AddItem Wert1
            List4.AddItem Wert2
        End If
    Next Liste2
Next Liste1
 
lDelIndexCount = List1.ListCount
For Liste1 = lDelIndexCount - 1 To 0
    List1.RemoveItem DelIndex(Liste1)
Next Liste1