Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Zufallszahlen aus Bereich ohne Wiederholun

mehrere Zufallszahlen aus Bereich ohne Wiederholun
19.08.2008 22:05:38
Dieterlem
Hallo Excelfreunde,
ich suche eine VBA-Lösung für Zufallszahlen. Ich habe zwar einiges gefunden aber konnte ich es nicht nach meinen Anforderungen anpassen.
Ich will eine bestimmte Anzahl (per Variable veränderbar) von Zufallszahlen generieren (Ganzzahlen).
Dabei dürfen keine Wiederholungen vorkommen. Die Zufallszahlen müssen aus einem bestimmten Bereich stammen, die ebenfalls mit Variablen festgelegt werden sollen.
Die generierten Zufallszahlen sollen in einem Tabellenblatt angezeigt werden.
Beispiel:
13 Zufallszahlen als Ganzzahl aus dem Bereich 165 bis 498 ohne Wiederholung.
Gruß
Dieterlem

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

Betreff
Datum
Anwender
Anzeige
AW: mehrere Zufallszahlen aus Bereich ohne Wiederholun
19.08.2008 22:12:29
Ramses
Hallo
Dann schau dir mal die Funktion RND() in der Hilfe an, da ist unter anderm dieses beispiel
Rnd Function Example
This example uses the Rnd function to generate a random integer value from 1 to 6.
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.
und auch dieses
Remarks
The Rnd function returns a value less than 1 but greater than or equal to zero.
The value of number determines how Rnd generates a random number:
For any given initial seed, the same number sequence is generated because each successive call to the Rnd function uses the previous number as a seed for the next number in the sequence.
Before calling Rnd, use the Randomize statement without an argument to initialize the random-number generator with a seed based on the system timer.
To produce random integers in a given range, use this formula:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Um zu prüfen ob die generierte Zahl schon mal vorhanden ist, kannst du die FIND()-Methode auf deinen Tabellenzielbereich anwenden, bevor du die Zahl einträgst
Gruss Rainer

Anzeige
AW: mehrere Zufallszahlen aus Bereich ohne Wiederholun
19.08.2008 22:48:37
ransi
HAllo Dieter
KAnnst du das nachvollziehen ?
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit



Public Sub geht()
Dim arr() As Variant
Dim L As Long
Dim I As Long
Dim tmp As Variant
Dim V As Long
Dim Z As Long
Dim Oben As Long
Dim Unten As Long
Dim W As Long
W = 13 'Wieviel Elemente
Unten = 165 'Untergrenze
Oben = 495 'Obergrenze
Redim arr(Oben - Unten)
For L = Unten To Oben 'Array mit Werten füllen
    arr(V) = L
    V = V + 1
Next
'#########
Randomize
'#########
For I = 0 To UBound(arr) 'Array mischen
    Z = Int(UBound(arr) * Rnd)
    tmp = arr(Z)
    arr(Z) = arr(I)
    arr(I) = tmp
Next
Redim Preserve arr(W) 'Die ersten 13 Werte im Array behalten
'Ausgewben
Range("A1").Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)
End Sub

ransi

Anzeige
AW: mehrere Zufallszahlen aus Bereich ohne Wiederholun
19.08.2008 23:17:19
Dieterlem
Hallo Ramses,
ich habe dein Vorschlag getestet. Es funktioniert so wie ich es mir vorgestellt habe. Auf diese Weise Zufallszahlen ohne Wiederholungen zu erzeugen ist sehr elegant.
Danke für deine Mühe.

307 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Makro ohne Pfadbezug erstellen.
George

Hallo,
Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
11.08.2008 08:46:50
Thread-ID: 1000712
3 Beiträge
Monat eingeben und dann
Kurt

Guten Morgen Zusammen,
ich möchte gern in der Zelle "C1" eine Zahl eingeben, z.b. 8, dann soll
in der Zelle C2 der Monat erscheinen u. zwar das ENDE 8 = 31.08.2008,
geht das ?
mfg Kurt
11.08.2008 09:53:00
Thread-ID: 1000728
6 Beiträge
Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
15
2
13
6
2
5
3
3
9
4
9
2
2
5
1
3
15
12
5
2
4
3
6