Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1220to1224
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

Werte per Zufall verteilen

Werte per Zufall verteilen
Dirk
Hallo!
Ich hatte Juergen in seinem Foreneintrag 'Gruppenauslosung' ein Beispiel genannt, wie die Zufallsschleife verkuerzt werden kann, indem man den ausgewaehlten Wert aus der Schleife entfernt. Leider ist der Eintrag nur noch im Archiv verfuegbar, deswegen stelle ich hier mal die Beispieldatei ein zur allgemeinen Verwendung.
https://www.herber.de/bbs/user/75567.xls
Gruss
Dirk aus Dubai

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
damit es wirklich Zufall ist ...
03.07.2011 11:11:51
Matthias
Hallo
Ganz nett! :o)
Ich würde allerdings noch ein Randomize mit einsetzen,
sonst werden immer die selben Zahlen generiert.
Immer wenn Du die Datei öffnest und den Code startest, kommen die selben Zahlen.
Sheet1

 ABCDEFGHIJ
6Distribution result:         
785632911074
881510739624
910468153297


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Userbild
Anzeige
kleine Vorschläge
03.07.2011 11:47:32
Erich
Hi Dirk,
hier sind noch ein paar kleine Änderungsvorschläge drin: Sub distribute_Rand_num() ' this macro distributes the numbers defined randomly ' Dirk Schoas (c) 2011 Dim lngSt As Long, lngEn As Long, lngNr As Long Dim ii As Long, lngRd As Long, lngLR As Long, cc As Long 'request start number lngSt = Cells(3, 2).Value If lngSt = 0 Then lngSt = Val(Application.InputBox("Please enter a start number > 0", _ "Start number entry", Type:=1)) If lngSt = 0 Then Exit Sub 'no entry, exit / kein Eintrag, abbruch End If Cells(3, 2).Value = lngSt 'request end number lngEn = Cells(3, 3).Value If lngEn = 0 Or lngEn
Anzeige
AW: kleine Vorschläge
03.07.2011 12:01:30
Dirk
Hallo!
Danke fuer Eure Rueckmeldung.
Macht Sinn und funktioniert jetzt einwandfrei.
Gruss
Dirk aus Dubai

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige