Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte per Zufall verteilen

Forumthread: 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
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige