ich würde mich freuen, wenn mir jemand von Euch bei meinem Problem helfen könnte.
Ich habe folgendes Makro
int2 = 1
int3 = 1
cntr = 0
strd = "D" & int3
strg = "G" & int3
strh = "H" & int2
Do
Range(strh).Formula = "=zufallsbereich(1, " & Range(strd).Value & ")"
int2 = int2 + 1
strh = "H" & int2
cntr = cntr + 1
Loop While (cntr < Range(strg).Value)
Das Makro wird solange durchlaufen, bis der Zähler kleiner als der Wert in der Zelle strg (z.B.4) ist. Ferner schreibt es in die Spalte H eine Zufallszahl aus dem Intervall 1 bis z.B.5 (strd).
Nun möchte ich erreichen, dass das Makro falls es eine Zufallszahl ausgibt, die es schon gibt, eine neue Zufallszahl berechnet.
Also z.B. im ersten Durchlauf gibt die Schleife eine 1 aus und schreibt es in die Zelle H1, im zweiten Durchlauf ist die Zufallszahl eine 3 und wird in H2 geschrieben, im dritten Schleifendurchlauf wird eine 5 in H3 ausgegeben, im vierten Durchlauf wird eine 1 erzeugt und bevor sie in H4 geschrieben wird, wird diese neuberechnet da es sie schon gibt- und so gibt es irgendwann eine beliebige Zahl z.B. 2 aus.
Hat jemand von Euch eine Idee wie man das realisieren kann? Es müssen ja immer alle vorherigen Zellen überprüft werden und gegebenenfalls eine Zelle mehrfach berechnet werden. Ich scheitere leider an dieser Herausforderung.
Vielen Dank für Eure Hilfe im Voraus!
Hans