Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

excel zufallszahl ohne wiederholung

excel zufallszahl ohne wiederholung
25.10.2016 11:09:12
Dennis
guten tag zusammen,
ich habe mal eine frage hier, ich habe mir ein vba zusammengebastelt für die zufallszahl mein problem ist jetzt aber das er mir auch doppelte zahlen ausspuckt, das möchte ich gerne vermeiden. vielleicht könnte mir jemand behilflich sein bei meinem problem.
https://www.herber.de/bbs/user/109003.xlsm
vielen dank
dennis

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: excel zufallszahl ohne wiederholung
25.10.2016 11:15:59
Rudi
Hallo,
Sub ZufallszahlenErzeugen()
Dim Bereich As Range
Dim zelle As Range
Dim objZufall As Object
Set objZufall = CreateObject("scripting.dictionary")
Set Bereich = Range("A1:A10")
Do While objZufall.Count 

Gruß
Rudi
AW: excel zufallszahl ohne wiederholung
25.10.2016 11:21:44
Dennis
vielen lieben dank rudi, genau das habe ich gesucht und gefunden. danke sehr.
noch a bissl Senf
25.10.2016 18:20:59
Michael
Hi zusammen,
Rudis Code ist super übersichtlich und sieht höchst einfach aus, auch wenn das Dictionary schon ein Griff in die Trickkiste ist.
Was mir aus eher theoretischen Gründen daran aufstößt, ist, daß die Schleife "unvorhersehbar oft" durchlaufen wird.
Weil das Problem immer wieder auftaucht, möchte habe ich mal eine allgemeine Lösung vorstellen, bei der die Anzahl der Schleifendurchläufe exakt bestimmt ist - mein Beitrag zum Stromsparen, hehe:
Option Explicit
Function Zufallszahlen(von&, bis&, anzahl&, Optional typ As Long = 1)
' "Standardfunktion" für Ziehung ohne Doppelte
' Wertebereich von..bis: ***************
'   von: kleinerer Wert
'   bis: größerer Wert
' anzahl: Anzahl der zu ziehenden Zahlen
' optionale Typangabe: *****************
'   0: eindimensionales Array
'   sonst: zweidimensionales Array hoch
Dim aIn, aOut
Dim i&, k&
' hier ist Raum für Plausibilitätsprüfungen:
' a) ist von 
Schöne Grüße,
Michael
Anzeige
AW: excel zufallszahl ohne wiederholung
25.10.2016 11:18:45
Matthias
Hallo
Option Explicit
Sub Zufall()
Dim rng As Range, rngAll As Range
Dim iRandomize As Integer
Set rngAll = Range("A1:A10")
Randomize
rngAll.ClearContents
For Each rng In rngAll.Cells
iRandomize = Int((20 * Rnd) + 1)
Do Until WorksheetFunction.CountIf(rngAll, iRandomize) = 0
iRandomize = Int((20 * Rnd) + 1)
Loop
rng.Value = iRandomize
Next rng
End Sub
Quelle:
https://www.herber.de/forum/archiv/960to964/962897_Zufallszahl.html#962906
Gruß Matthias
Anzeige

166 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige