Moin zusammen,
auf Knopfdruck (Makro) soll eine Zufallszahl zwischen 1 und 1000 in Tabellenblatt 1, E2 geschrieben werden. Dafür habe ich folgenden VBA-Code, der gut funktioniert:
Worksheets("Tabelle1").Range("E2").Value = Int((1000 - 1 + 1) * Rnd + 1)
Danach soll nichts weiter geschehen. Die Zahl bleibt solange in E2 stehen, bis ich wieder das Makro aktiviere und die Zahl mit einer neuen Zufallszahl überschrieben wird.
Jetzt kommt noch folgende Bedingung hinzu:
In Tabellenblatt 2 ist eine Liste, Spalte A:A mit n Zahlen zwischen 1 und 1000. Diese Liste wird unabhängig von dem Zufallsgenerator laufend ergänzt. Sobald in dieser Liste eine Zahl auftaucht, beispielsweise die 67, darf der Zufallsgenerator die 67 nicht mehr ausgeben, usw.
Leider sind meine VBA-Kenntnisse bescheiden. Ich bin mir aber sicher, dass ich eine Art DO LOOP brauche, die so lange eine Zufallszahl ermittelt, bis er eine Zahl hat, die nicht in der Liste in Tabellenblatt 2 steht. Diese Zahl schreibt er dann in Tabelle 1, E2 rein. Leider hat mir meine deutsch- und englischsprachige Google-Suche nicht viel geliefert, was ich nutzen und ggf. anpassen konnte.
Könnt ihr mir weiterhelfen?
Vielen Dank!!