ListBox - Vergleich

[kAmBeR]

Hi,

Dim Liste1 As Integer, Liste2 As Integer
Dim Wert1 As String, Wert2 As String
    
List3.Clear
    
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
    End If
  Next Liste2

Next Liste1

Dieser VB-Code untersucht 2 ListBox - Inhalte und fügt sie in einer dritten ein, falls die Einträge genau gleich sind.

Die, die nicht gleich sind werden ignoriert.

Jedoch macht mir das jetzt ein paar Probleme.

Ich will, dass z.B Texte, die nicht gleich sind in einer 4. ListBox hinzugefügt werden, oder dir Einträge aus der 3. ListBox aus der 1.Listbox gelöscht werden.

Hoffe, ihr habt mein Problem verstanden

Danke Im Voraus

 

[Andreas Dunstheimer]

Wo ist das Problem?
Die Einträge in Listbox 4 machst Du genauso wie die Einträge in Listbox 3, und zum Entfernen der Einträge aus Listbox 1 benutzt Du

list1.removeitem(Liste1)


Dunsti