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

excel zufallszahl ohne wiederholung

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

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.
Anzeige
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

Forumthreads zu verwandten Themen

Tage zwischen zwei Datümern auswerten
Reinhard

Hallo Wissende,
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich...
05.03.2010 17:05:03
Thread-ID: 1143798
13 Beiträge
VBA + Uhrzeit zwischen zwei Werten
Peter

Hallo zusammen,
ich habe ein Problem mit der Uhrzeit in VBA:
In Zeile 1 ist das Datum,
in Zeile 2 sind die Stunden.
Es soll nun ein Eintrag erfolgen, wenn Schicht_Datum gefunden, und Uhrzeit liegt zwischen Schicht_Beginn und Schicht_Ende.
Problem1: Uhrzeit 24.00 Uhr ist "00:...
04.05.2011 08:18:30
Thread-ID: 1212964
3 Beiträge
excel vba alle monate zwischen zwei Datumswerten i
Jappe
Hallo Liebe Herber Gemeinde,
ich habe in einer Tabelle in zwei Zellen a1 und b1 je ein Datum stehen.
Jetzt möchte ich, dass acht Spalten weiter, in jeder neuen spalten der nächste Monat steht also in j1, k1, l1 usw.
Wie kann ich das in einem Makro darstellen?
Viele Danke
15.04.2015 16:14:20
Thread-ID: 1420988
10 Beiträge
Anzeige
Zufallsgenerator f. Zahlen per VBA (ohne doppelte)
erichm

Hallo,
es geht darum, dass aus 25 Kundennummern (die von Zeit zu Zeit ausgetauscht werden) immer ein Mix erstellt wird, der in 5 Reihen aufgeteilt wird. Das Ganze soll sich x-fach wiederholen. Ich habe bereits eine Formellösung (aus dem Forum hier) – aber das ist wegen des „Wiederholungsfak...
29.08.2015 18:33:08
Thread-ID: 1445001
9 Beiträge
Anzeige
Zufallszahlen ohne Wiederholung in zwei Spalten
justme

Guten Tag zusammen,
ich habe ein Frage bzw. ein Problem. Und zwar erstelle ich ein Excel-liste für ein Turnier. Insgesamt sind es 30 Mannschaften im 1 vs. 1 verfahren. Wer gegen wen spielt soll zufällig ausgelost werden. Nun meine Frage. Ist es möglich das von A1 und B1 bis A15 und B15 per...
19.09.2016 12:45:22
Thread-ID: 1515083
5 Beiträge
Excel Datenbanksuche zwischen zwei Datumswerten
tursiops

Hallo!
Ich bastele gerade an einem Personal-Stellenplan, der Auswertungen nach einem Stichtag ermöglichen.
Bisher funktioniert dies recht gut, allerdings müsste ich noch Abwesenheiten aus einer anderen Tabelle zu dem jeweiligen Stichtag abfragen können. Hiermit bin ich momentan überfor...
23.02.2017 12:00:48
Thread-ID: 1543469
7 Beiträge
Wert nur zwischen zwei Werten
fap

Hallo Excel-Fachleute,
ich suche jetzt schon einige Zeit nach der folgenden Fragestellung aber finde irgendwie keinen Anhaltspunkt.
Ich suche eine Formel für folgendes:
Bitte geb mir die Zahl aus A1 aus. Wenn diese unter 80 liegt, gebe bitte 80 aus, wenn diese über 299 liegt, gebe b...
13.03.2017 12:00:16
Thread-ID: 1547016
6 Beiträge
Zeilen zwischen zwei Werten kopieren
mikaelias

Hallo liebe Excel-/VBA-Gemeinde,
mir stellt sich folgendes Problem:
In einer Datei stehen verschiedene Standorte unter jedem Standort jeweils Elemente für den Standort. Nun möchte ich jeden Standort mit seinen Elementen in ein neues Tabellenblatt kopieren. Die Anzahl der Elemente ist da...
15.04.2019 17:44:22
Thread-ID: 1687281
3 Beiträge
Nettozeit zwischen zwei Datumswerten berechnen
Christian

Moin alle zusammen,
ich hatte im Vorfeld nicht gedacht, dass diese Aufgabe so kompliziert werden könnte oder vielleicht mache ich auch etwas falsch. Es geht darum die Nettozeit zwischen zwei Datumswerten mit Uhrzeiten zu berechnen wobei zwischen 22:00 - 06:00 nicht gearbeitet wird, diese Ze...
02.06.2019 11:26:25
Thread-ID: 1695690
7 Beiträge
Anzeige
Spalten löschen zwischen zwei Werten
Diana

Liebes Forum,
ich hoffe ihr könnt mir bei meinem Problem weiterhelfen.
Und zwar habe ich ein Tabellenblatt, dass enorm viele Spalten enthält.
Nun sollen alle Spalten, die die Spaltenüberschrift "Gesamtergebnis"oder "Dummy"enthalten gelöscht werden.
Dafür das unten stehende Makro...
14.01.2005 09:36:30
Thread-ID: 547318
5 Beiträge
mit Bereich zwischen zwei Datumswerten rechnen
drigi

Hallo Ihr,
ich erstelle gerade eine Zinsstaffel mit wechselnden unterjährigen Zinssätzen.
So habe ich beispielsweise folgende Zinssätze:
5,00 % im Bereich 01.01.2005 - 31.06.2005
6,00 % im Bereich 01.07.2005 - 31.12.2005
[bis maximal 12 Zinsvorgaben]
Ein Jahr soll 360 Zinst...
08.04.2005 21:26:38
Thread-ID: 596418
2 Beiträge
Zufallszahl ohne Wiederholung (große Datenmenge)
Thomas_H

Hallo an Alle!
Ich habe mal wieder in meiner Firma eine Aufgabe gestellt bekommen die ich ohne eure Hilfe nicht lösen kann. Folgendes Problem:
Wir haben einen Verlosung an der ca. 900 Personen teilnehmen. Auf meiner Liste steht jeder Name mit der Anzahl der erworbenen Lose (ca. 35.000)<...
04.12.2006 13:23:44
Thread-ID: 825988
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zufallszahlen in Excel ohne Wiederholung generieren

Schritt-für-Schritt-Anleitung

Um in Excel Zufallszahlen ohne Wiederholung zu generieren, kannst du die folgende VBA-Funktion verwenden. Diese Methode ist besonders nützlich, wenn du eine Liste von Zahlen oder anderen Werten zufällig auswählen möchtest, ohne dass es Duplikate gibt.

  1. Öffne Excel und gehe zu den Entwicklertools.

    • Falls die Entwicklertools nicht sichtbar sind, aktiviere sie über die Excel-Optionen.

  2. Füge ein neues Modul hinzu.

    • Klicke auf "Visual Basic" und dann im Menü auf "Einfügen" > "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Option Explicit

Sub ZufallszahlenErzeugen()
   Dim Bereich As Range
   Dim zelle As Range
   Dim objZufall As Object
   Set objZufall = CreateObject("scripting.dictionary")
   Set Bereich = Range("A1:A10") ' Definiere den Bereich für die Zufallszahlen

   Do While objZufall.Count < Bereich.Cells.Count
       Dim zufallszahl As Integer
       zufallszahl = Int((20 * Rnd) + 1) ' Zufallszahl zwischen 1 und 20
       If Not objZufall.Exists(zufallszahl) Then
           objZufall.Add zufallszahl, Nothing
       End If
   Loop

   Dim i As Integer
   i = 1
   For Each zelle In Bereich
       zelle.Value = objZufall.Keys()(i - 1)
       i = i + 1
   Next zelle
End Sub

  4. Führe das Skript aus.

    • Stelle sicher, dass der Bereich A1:A10 in deinem Arbeitsblatt korrekt definiert ist und führe das Makro aus, um die Zufallszahlen zu generieren.

Häufige Fehler und Lösungen

  • Doppelte Zahlen werden generiert:

    • Stelle sicher, dass du die Randomize-Anweisung vor der Zufallszahlengenerierung verwendest, um die Zufallszahlen zu initialisieren.

  • Fehlermeldung beim Ausführen des Makros:

    • Überprüfe, ob das Modul korrekt eingefügt wurde und keine Syntaxfehler im Code vorhanden sind.

Alternative Methoden

  1. Excel-Funktion nutzen:

    • Du kannst auch die Funktion =RANDBETWEEN() in Kombination mit einer Hilfsspalte verwenden, um Zufallszahlen zu generieren und dann die Duplikate manuell zu entfernen.

  2. Zufallsgenerator für Listen:

    • Wenn du eine zufällige Auswahl aus einer Liste ohne Wiederholung treffen möchtest, kannst du auch die Funktion INDEX() zusammen mit RANDBETWEEN() nutzen.

Praktische Beispiele

  • Zufallszahlen zwischen zwei Werten:

    Wenn du Zufallszahlen zwischen 1 und 100 generieren möchtest, kannst du den Code entsprechend anpassen:

    zufallszahl = Int((100 * Rnd) + 1) ' Zufallszahl zwischen 1 und 100

  • Zufällige Auswahl aus Liste:

    Um eine zufällige Auswahl aus einer Liste zu treffen, kannst du folgendes verwenden:

    Dim liste As Variant
liste = Array("Apfel", "Banane", "Kirsche")
Dim randomIndex As Integer
randomIndex = Int((UBound(liste) + 1) * Rnd)
MsgBox liste(randomIndex) ' Gibt einen zufälligen Wert aus der Liste zurück

Tipps für Profis

  • Optimierung des Codes:

    • Verwende die Dictionary-Objekte, um die Performance zu verbessern, insbesondere bei größeren Datenmengen.

  • Eingabewerte validieren:

    • Füge Plausibilitätsprüfungen hinzu, um sicherzustellen, dass die Anzahl der zu ziehenden Zahlen nicht größer ist als die Anzahl der verfügbaren Optionen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass die Zufallszahlen in einem bestimmten Bereich liegen?
Verwende die RANDBETWEEN()-Funktion oder passe die Berechnung der Zufallszahlen im VBA-Code entsprechend an.

2. Was ist der Unterschied zwischen Randomize und Rnd?
Randomize initialisiert den Zufallszahlengenerator, während Rnd die Zufallszahl selbst generiert. Verwende Randomize nur einmal vor der ersten Verwendung von Rnd.

Beliebteste Forumthreads (12 Monate)

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