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
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 habenCode: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
Wäre cool wenn mir jemand helfen könnte
mfg
nom


Zitieren
