Office: Zufallszahl ohne zurücklegen

Hallo!

Ich habe in einer Spalte n Zahlen vorgegeben und folgendes Makro soll mir beispielsweise in B1 und C1 zwei Zufallszahlen ausgeben:

Function Zufallszahl(aRng As Range)

Application.Volatile

Dim index As Integer
Randomize
index = Int(aRng.Count * Rnd + 1)
Zufallszahl = aRng.Cells(index).Value

End Function

Ich möchte aber, dass die Zahl nicht doppelt gezogen wird.

Ist es möglich, den Code durch eine Schleife, if-Bedingung o.ä. zu erweitern, so dass zwei Zahlen ohne zurücklegen ausgegeben werden?

Vielen Dank schonmal!

:)

 

Hallo,

@G: "vba zufallszahl ohne zurücklegen"
1. Treffer.

Grüße
EarlFred

 

den hier?

 

Hallo,

Ja.

Grüße
EarlFred

 

Hallo mykez

Sind das nur Unikate oder hast du da noch doppelte drin ?

ransi

 

Hallo ransi,

fürs erste nur Unikate.

 

Hallo,

schade, dass Du es nicht wenigstens einmal selbst probierst...

Dann der Code für's zweite (das kommt ja dann wohl auch, also mit Dopplern):
Code:

Aufruf aus dem Tabellenblatt mit
Code:

B1:C1 markieren, Formel in die Bearbeitungsleiste eintragen und Eingabe mit Strg+Shift+Enter abschließen (Matrixfunktion).
Den rot markierten Bereich natürlich anpassen.

Grüße
EarlFred

 

... der Code kam mir doch gleich bekannt vor.

 

\@xlph,

die Idee ist ja auch klasse (weil einfach und effektiv); Alternative mit Formel: http://www.excelformeln.de/formeln.html?welcher=152

Grüße
EarlFred

 

Eine Variante wäre es auch, die zur Auswahl stehenden Zahlen in ein Array zu übernehmen, dann das Array zufällig zu sortieren und dann je nach Wunsch die benötigten Zahlen von Index 1 bis alle auszugeben.
Siehe auch Arrayinhalte schnell mischen

Duplikate kannes da nur geben, wenn man Arrayfelder mehrfach anläuft.

 

Hallo EarlFred,

danke erstmal für dein Hilfe!

Ich hab mir z.B. gedacht, dass ich die Zellen B1 C1 als Zahl1 Zahl2 definiere und dann eine Bedingung schreibe, falls Zahl1 = Zahl2 ist, ich für Zahl2 solange den VBA Code durchlaufen lasse, bis die Zahlen nicht übereinstimmen.
Habe das wie folgt formuliert, funktioniert aber nicht richtig, plus es wäre aber dann kein richtiges Ziehen ohne Zurücklegen mehr.

zahl1 = ActiveSheet.Cells(1, 2).Select
zahl2 = ActiveSheet.Cells(1, 3).Select

If zahl1 = zahl2 Then
Zufallszahl = aRng.Cells(index).Value
End If

Danke

 

Hallo ?,

nun, und ich habe mir eben etwas anderes gedacht.

Es wäre doch nett, wenn Du den Vorschlag wenigstens mal ausprobierst und eine Rückmeldung dazu gibst, bevor eine weitere Lösung erarbeitet wird (die in meinen Augen keineswegs besser ist als die Idee, das Array zu "schütteln", wie es in nun mehrfach verlinkten Codes getan wird).

[Ergänzung]
Code:

zahl1 ist übrigens entweder "WAHR" (bei Deklaration als Variant) oder -1 bei Deklaration als Zahl. Es wird zurückgegeben, ob Cells(1,2) erfolgreich ausgewählt werden konnte und nicht der Zellwert.

Grüße
EarlFred

 

Entschuldige!
So habe ich das natürlich nicht gemeint. Ich wollte damit sagen, dass ich mit meiner "Lösung" daneben liege...du schriebst ja ich sollte es mal selber probieren.