Office: Zufallsgenerator

Liebe Comunity...

wie ist es möglich über ein Makro einen Zufallsgenerator zu programmieren?

Ich habe eine Liste mit ca. 578 Datensätzen und aus dieser soll mir auf Klick per Zufallsprinzip 15 Datensätze rausgefiltert werden.

Diese 15 zufällig ausgewählten Datensätzen sollen dann beim nächsten Durchlauf nicht mehr gezogen werden können, sprich diese sollten dann auch entfernt sein.

Wäre echt super, wenn mir da jemand weiterhelfen kann.

Vielen Dank

 

Hallo!

Teste es mal in einer Beispielmappe:

Code:

Sub Zufall()
Dim Erste%, Letzte%, Zeile%, Spalte%, i%
Randomize
Spalte = 1  'in dieser Spalte stehen die Daten
Erste = 2   'in dieser Zeile beginnen die Daten
For i = 1 To 15
    Letzte = Cells(Rows.Count, 1).End(xlUp).Row
    If Letzte < Erste Then Exit Sub
    Zeile = Rnd * (Letzte - Erste) + Erste
    Cells(Zeile, 1).Cut Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
    Cells(Zeile, 1).Delete (xlShiftUp)
Next i
End Sub

Bei den verwendeten Werten gehe ich davon aus, dass deine Daten lückenlos ab A2 abwärts gelistet sind.
Die Ausgabe erfolgt in Spalte C.

PS: Deine eMail-Adresse solltest du nicht in Foren publizieren! Potentielle Spammer warten nur darauf...
(Daher habe ich sie etwas angepasst.)

 

guten abend...

Danke für die Änderung meiner Email Adresse und dem Hinweis. Ferner Danke ich auch für Deine Antwort...

Leider bekomme ich immer die Fehlermeldung

Syntaxfehler

Was mache ich falsch?

VG