Necronomico
Grünschnabel
Code:
Dim i As Integer
TextBox2 = ""
i = 0
Do While Not Cells(i + 1, 1) = ""
i = i + 1
Loop
Randomize
wert = Int((i * Rnd) + 1)
TextBox1 = Cells(wert, 1)
kann man da nicht einfügen, dass die zelle in der die mit dem befehl ausgewählte Vokabel steht, ausgewählt wird
Schnelles Posting währe nett. zeit wird knapp.
Zuletzt bearbeitet: