Hiho Leute.
Ich habn kleines Problem :x
Ich habe 6 Listboxen in immer 2 zusammenhängenden stehen Werte, die ich vergleichen muss.
Wenn List1_wert = List4_wert und List2_wert = List5_wert und List3_wert = List6_wert dann okay ansonsten öffne Form4 und trage in die Textboxen die zugehörigen Werte ein. Wenn alles okay ist lösche die Werte aus den Listboxen
bisheriger Code
Code:
For i = 0 To List1.ListCount - 1
For j = 0 To List4.ListCount - 1
If List1.List(i) = List4.List(j) Then
If Not List2.List(i) = List5.List(j) Then
Form4.Show
Form4.Text1.Text = List1.List(i)
Form4.Text2.Text = List2.List(i)
Form4.Text3.Text = List3.List(i)
Form4.Text4.Text = List4.List(j)
Form4.Text5.Text = List5.List(j)
Form4.Text6.Text = List6.List(j)
Exit For
Exit For
Else
If Not List3.List(i) = List6.List(j) Then
Form4.Show
Form4.Text1.Text = List1.List(i)
Form4.Text2.Text = List2.List(i)
Form4.Text3.Text = List3.List(i)
Form4.Text4.Text = List4.List(j)
Form4.Text5.Text = List5.List(j)
Form4.Text6.Text = List6.List(j)
Exit For
Exit For
Else
List1.RemoveItem i
List2.RemoveItem i
List3.RemoveItem i
List4.RemoveItem j
List5.RemoveItem j
List6.RemoveItem j
End If
End If
End If
Next j
Next i
Geht aber nicht so wie ich mir das gedacht habe, da die Form4 erst angezeigt wird, nachdem er alle durchlaufen hat und trotzdem noch manche Werte in den Listboxen vorhanden sind die nicht gepasst haben
Wäre cool wenn mir jemand helfen könnte
mfg
nom