Hey,
ich will ein Programm schreiben, mit dem die Einträge einer Listbox ZUFÄLLIG in die andere Listbox eingetragen werden.
Beispiel: In der List1 gibts 100 Einträge, von 1 bis 100. Wenn ich jetzt auf Command1 klicke, soll der 20 Einträge von der List1 in die List2 übertragen, ob sortiert oder unsortiert, ist mir vollkommen egal, hauptsache ist, dass sich die Werte NICHT wiederholen!
Bis jetzt habe ich folgendes:
Private Sub cmdAdd_Click()
Dim L1 As Variant
For L1 = 1 To 100
List1.AddItem (L1)
Next L1
End Sub
Muss ich jetzt irgendwie die Randomize-Funktion benutzen? Falls ihr noch etwas genauer wissen wollt, dann schreibt es einfach hier rein
Mit freundlichen Grüßen,
Va7e
ich will ein Programm schreiben, mit dem die Einträge einer Listbox ZUFÄLLIG in die andere Listbox eingetragen werden.
Beispiel: In der List1 gibts 100 Einträge, von 1 bis 100. Wenn ich jetzt auf Command1 klicke, soll der 20 Einträge von der List1 in die List2 übertragen, ob sortiert oder unsortiert, ist mir vollkommen egal, hauptsache ist, dass sich die Werte NICHT wiederholen!
Bis jetzt habe ich folgendes:
Private Sub cmdAdd_Click()
Dim L1 As Variant
For L1 = 1 To 100
List1.AddItem (L1)
Next L1
End Sub
Muss ich jetzt irgendwie die Randomize-Funktion benutzen? Falls ihr noch etwas genauer wissen wollt, dann schreibt es einfach hier rein
Mit freundlichen Grüßen,
Va7e