Zufallszahl mit Wiederholungsbedingung
03.05.2020 15:09:49
Martin
ich habe eine Frage an die Excel Profis in diesem Forum.
Ich habe in einem Tabellenblatt eine Tabelle mit 35 Einträgen. In Spalte A ist eine ID, diese geht von 1 bis 35.
Jeder ID ist in Spalte B eine eindeutige Fragennummer zugeordnet und in Spalte C eine konkrete Frage.
Sprich die Tabelle ist ein Fragenkatalog, bestehend aus 35 Fragen.
Die IDs wiederholen sich nicht.
In einem zweiten Tabellenblatt habe ich mir einen Command Button angelegt. Dieser soll auf Knopfdruck in Zelle A7 eine Zufallszahl im Bereich von 1 bis 35 generieren.
In zwei weiteren Zellen lasse ich mir dann - zu der per Zufall generierten ID - die dazugehörige Fragennummer und konkrete Frage anzeigen.
Ich habe als Vorlage einen Code aus diesem Forum benutzt:
- Rudis Vorlage: https:\/\/www.herber.de/forum/archiv/1520to1524/1521546_excel_zufallszahl_ohne_wiederholung.html
Private Sub CommandButton1_Click()
Dim Bereich As Range
Dim zelle As Range
Dim objZufall As Object
Set objZufall = CreateObject("scripting.dictionary")
Set Bereich = Range("A7")
Do While objZufall.Count Die Zufallsausgabe einer ID im gewünschten Bereich, funktioniert wie gewünscht.
Ich möchte aber noch eine Bedingung einbauen, die dafür sorgt, dass sich die per Zufall gezogene Zahl erst nach 20 Wiederholungen wiederholt.
Sprich: Ziehen ohne Zurücklegen und nach 20 Ziehungen wird ein Reset durchgeführt.
Wie bekomme ich das hin?
Muss ich in den Code eine Art Counter einbauen?
Viele Grüße
Martin