Ich versuche einen Code zu schreiben dessen Aufgabe es ist nach einem ButtonClick aus einer Liste von Namen eine zufällige Auswahl zu treffen. Der Code soll die zufällige Zeile selektieren und in eine zweite Tabelle kopieren.
Wird der Button erneut gedrückt, soll eine weitere Zeile markiert werden und ebenfalls in die zweite Tabelle kopiert werden; unterhalb des Datensatzes vom ersten mal Klicken auf den Button.
Den Code für die rdm Auswahl habe ich selbst schon ein Stück weit fertig. Allerdings selektiert mein Code nur eine Zelle, keine ganze Zeile, und die Ausgabe erfolgt bisher nur über eine MsgBox. Wie man die Werte in eine zweite Tabelle kopiert ohne bereits vorhandene Zellen zu überschreiben weis ich leider nicht.
Ich hoffe dass mir einer von Euch helfen kann.
Im Folgenden mein bisheriger Code:
Sub CommandButton1_Click()
Dim ZZahl As Variant 'Variablendefinition
Dim T As Variant
Randomize
ZZahl1 = Int((9 * Rnd) + 1)
zzahl2 = ZZahl1 + 2 'Zur Zufallszahl wird 2 addiert, da es ab Zelle A2 funktionieren soll
i = "A" & zzahl2
T = Range(i)
MsgBox "Per Zufall wurde ausgefwählt: " & T & " aus Zelle " & i
Range(i).Select 'Zufalls-Zelle wird ausgewählt
End Sub
Ich hoffe mir kann jemand weiterhelfen.
Besten Dank im Vorraus,
Berlin030