Excel Vba mehrere Zufallszahlen, jedoch keine Wiederholungen?

Hallo,

Ich brauche 10 Variabeln, die einer Zufallszahl zugewiesen sind, jedoch dürfen sich die Zufallszahlen nicht wiederholen. Also z.B.

Z1= 23

Z2= 25

Z3= 25

Z4= 19

Z6= 17

....

Die "25" kommt nun 2 mal vor und das sollte nicht sein, also müsste Z2 oder Z3 zu einer anderen Zahl geändert werden.

Wie kann man das überprüfen lassen? Gibt es eine einfache und schnelle Möglichkeit ohne viel Code? Oder müsste man jede einzelne Variable mit if überprüfen?

MfG Fabian

01.08.2021, 21:22

Der Bereich der Zufallszahlen sollte von 1 bis 60 sein, allerdings ist das zu vernachlässigen

4 Antworten

hannes1806

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

02.08.2021, 17:00

Hallo, du willst also so etwas erreichen, wie einen Stapel Karten zu mischen.

Eine andere Herangehensweise wäre dafür, z.B. 1000 mal 2 Zufallszahlen im gewünschten Bereich zu generieren und die jeweiligen Werte in den 2 zufälligen Zellen zu vertauschen. Am Ende sind die Werte "gut gemischt".

Woher ich das weiß:eigene Erfahrung – Faulheit >> Neugier >> Wissen

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

02.08.2021, 10:00

Ich würde so vorgehen

Du speicherst alle Zufallszahlen
Bei jeder neuen Zufallszahl prüfst du, ob sie bereits gespeichert wurde.
Wenn ja, ziehst du eine neue Zufallszahl
Wenn nicht, fügst du die Zahl der gespeicherten Liste hinzu.

Beispiellösung:

Sub optimierer()
   Const intMin = 1
   Const intMax = 60
   Dim arrZZ As Collection
   Dim i As Integer
   Dim zz As Integer

   Set arrZZ = New Collection
   Randomize
   While arrZZ.Count < 10
       zz = CInt((Rnd() * intMax) + intMin)
       If Not ArrContaining(arrZZ, zz) Then _
           arrZZ.Add (zz)
   Wend

   For i = 1 To arrZZ.Count
       Debug.Print arrZZ(i)
   Next

   Set arrZZ = Nothing
End Sub

Function ArrContaining(arr As Collection, intSuchzahl As Integer) As Boolean
   Dim i As Integer
   ArrContaining = False
   For i = 1 To arr.Count
       If arr(i) = intSuchzahl Then
           ArrContaining = True
           Exit Function
       End If
   Next i
End Function

Kinlerka

Fragesteller

02.08.2021, 14:09

Vielen Dank für die super schnelle und sehr hilfreieche Antwort Suboptimierer! :)

Das ist eine sehr gute Idee und hat mir bei meinem Projekt weitergeholfen.

Suboptimierer

02.08.2021, 15:28

@Kinlerka

Bitteschön!

Das freut mich.

Elumania

02.08.2021, 17:09

Meine Idee ist die 10 gesuchten Zufallszahlen von 0 bis 60 auf 10 Bereiche aufzuteilen. Der erste Bereich wird mit einer Zufallszahl zwischen 0 bis 6 gefüllt, der zweite Bereich dann zwischen 6 und 12 usw. So wird vermieden, dass eine Zufallszahl doppelt vorkommt. Die Zufallszahlen sind in einem Array gespeichert und am Ende aufsteigend sortiert.

Mein Code:

Sub zufallszahlenprogramm()

'Array zum Speichern der 10 Stück Zufallszahlen
Dim arrayZahlen(1 To 10) As Integer

'Bereichsangabe der Zufallszahlen
anfang = 0
ende = 60
mengeZufallszahlen = 10 'Wie viele Zufallszahlen entstehen sollen. Muss mit der Arraygröße übereinstimmen.

bereichsweite = ende / mengeZufallszahlen

For i = 1 To mengeZufallszahlen
    
    bereichEnde = bereichEnde + bereichsweite
    arrayZahlen(i) = Int(((bereichEnde - bereichAnfang) * Rnd) + bereichAnfang)
    bereichAnfang = bereichAnfang + bereichsweite + 0.00001
Next
Stop ' Hier hat man Zeit sich das fertige Array anzuschauen
End Sub

showgirl1

02.08.2021, 00:29

Ich verstehe deine Frage nicht. Entweder eine Zahl ist zufällig oder entspricht bestimmten Kriterien - ist also nicht zufällig. Du gibst Kriterien an die deine "Zufallszahl" erfüllen soll - also kann es kein Zufall sein!

Suboptimierer

02.08.2021, 09:21

Eine Zahl kann sowohl zufällig sein, als auch bestimmten Kriterien genügen.

Beispiel Münzwurf. Kopf = 1, Zahl = 0. Der Münzwurf ist zufällig, aber die Zahl muss dem Kriterium genügen, 0 oder 1 zu sein.

Beispiel Lotto. Es wird aus 49 Zahlen gezogen. Das Kriterium ist, dass die Zahl aus der Menge an Kugeln mit den Zahlen 1 bis 49 sein muss. Beim zweiten Ziehen ist das Kriterium, dass alle Zahlen bis auf die zuerst gezogene möglich sind.
Beide Ziehvorgänge sind zufällig.

Ich habe eine Gleichung z.B. Z1 = Z2Z3/(Z2+Z3)

Wobei Z1,Z2,Z3 komplexe Zahlen sind.

Nun will ich die Ergebnisse von Z1, für ein fixes Z2 und Z3 variert zwischen 0 und 1000.

So, aber das kommt mir viel zu umständlich vor in Excel, oder gibts da ne einfachere weise in Excel zu rechnen, als mit den Befehlen

IMPRODUKT(funktion)

INSUMME(funktion)

...zur Frage

Ein getriebe hat folgende zahnräder z1 30 Zähne, z2 10 zähne , z3 20zähne und z4 (Abtriebsrad)30Zähne.bestimme die drehrichtung und das Übersetzungsverhältni?

...zur Frage

wie berechnet man die zahnräder z1 und z2?

Es ist ein 2 Stufen Getriebe gegeben ist z3= 17, z4=39, nan= 1425 1/min, nab=125 1/min, a=120 mm , m=3 danke im voraus

...zur Frage

Licht Simson funktioniert nicht so wie es soll?

Hallo,

Ich bin mit meinem Aufbau von meiner S51/1 fast fertig nur geht das Licht noch nicht Perfekt.

Z0 = /

Z1= Zündung, Blinker, Bremslicht,

Z2= Zündung, Blinker, Bremslicht, Tachobeleuchtung, Standlicht, und das Licht vorne funktioniert nur wenn ich „aufblende“ ansonsten nur SL

Z3= /

Also es sieht ja soweit schon ganz gut aus bis auf das Standlicht was könnte da denn falsch verkabelt sein?

...zur Frage

Informatik Komplexe Zahlen in kartesischer Darstellung?

Hallo, ich studiere Informatik und wir haben das Thema Komplexe Zahlen. Wir sollen komplexe Zahlen in kartesischer Darstellung darstellen. Ich bräuchte eure Hilfe. Es wäre sehr nett, wenn ihr mir die folgenden Aufgaben erklären könntet mit Lösungsweg.

z1 = 3 + 4i

z2 = −2 + 3i

z3 = 5 − i

z4 = 6i

c) 3z1 − 4z2

d) 5z3 + 4z4

h) ich kann das hier nicht genau darstellen aber es ist ein zhoch3 und unter der hoch 3 ist noch eine 3

i) |z2| Andere frage noch: Wofür stehen diese | hier?

Lösungen:

c) 3z1 − 4z2 = 17

d) 5z3 + 4z4 = −10 + 39i

h) z 3 3 = 110 − 74i

i) |z2|

...zur Frage

DEA Minimieren?

Ich verstehe diese Minimierung vom DEA nicht. Wieso werden die Paare (z2, z3), (z2,z4), (z3, z4) nicht gestrichen obwohl sie auf einen bereits gestrichenes Paar verweisen. Stattdessen werden sie am Ende zu dem Paar z234 zusammengefasst.

Die Aufgabe ist von hier:

https://studyflix.de/informatik/dea-minimieren-1212

...zur Frage

Ich möchte im Excel Zufallszahlen haben, die aber nur bestimmte Werte haben z.Bsp. 13 15 20 30 40 50 60. Ich kann also keinen Zufallsbereich angeben. Wer weiss?

Im Excel möchte ich bestimmte Zahlen als Zufallszahlen angeben. Ich brauche die Zahlen 10 20 30 40 ........100, dann ist es vielleicht nicht so kompliziert. Ich kann also keinen Zufallsbereich angeben. Besser wäre es natürlich, wenn ich irgendwelche Zahlenwerte angeben könnte 4 25 36 48 28 usw. statt Zehnerzahlen, die dann mit Zufallszahl ausgegeben werden, falls das nicht zu komplisiert ist. Wer weiss wie es geht?

...zur Frage

Äquivalenzrelation von Komplexen Zahlen (z1,z2) e R, |z1|=|z2|?

Hallo ich bin auf der Suche nach einer guten Beweismethode für die Äquivalenzrelation: Ich weiß das die Relation 1) reflexiv ist: |z1| = |z1| 2) symmetrisch ist: |z1| = |z2| <=> |z2| = |z1| 3) und transitiv ist: |z1| = |z2| und |z2| = |z3| => |z1| = |z3|

Leider kann ich nicht genau den passenden Beweis bringen. Im Anhang findet ihr ein anderes Beispiel zu einer Äquivalenzrelation von Komplexen Zahlen. Danke

...zur Frage

Wie kann ich verhindern, dass bei meinem Batch spiel steht echo ist ausgeschaltet off?

Script:

@echo off title Tic Tac Toe color 0F

:gebenick1 color0f echo. cls echo. echo. echo ###### ## ### ###### ## ### ###### #### ###### echo ## ## ## ## #### ## ## ## ## #### echo ## ## ## ## ## ## ## ## ## ## ## echo ## ## ### ## ## ## ### ## #### ###### echo. echo
echo. echo. echo Name des 1.Spieler: echo. set /p nick1="" goto bubu1 :lol1 color0f cls echo. echo. echo. echo. echo #################### echo Willkommen %nick1% echo #################### ping /n 2 localhost >NUL goto gebenick2

:gebenick2 color0f cls echo. echo. echo ###### ## ### ###### ## ### ###### #### ###### echo ## ## ## ## #### ## ## ## ## #### echo ## ## ## ## ## ## ## ## ## ## ## echo ## ## ### ## ## ## ### ## #### ###### echo. echo
echo. echo. echo Name des 2.Spieler: echo. set /p nick2="" goto bubu2 :lol2 color0f cls echo. echo. echo. echo. echo. echo. echo #################### echo Willkommen %nick2% echo #################### ping /n 2 localhost >NUL goto main

:main color0f

set z1=1 set z2=2 set z3=3 set z4=4 set z5=5 set z6=6 set z7=7 set z8=8 set z9=9

:Spieler1 cls

color 0f

echo. echo
echo
echo. echo %nick1% hat die 0 echo. echo. echo %z1%___%z2%___%z3% echo.
echo %z4%___%z5%___%z6% echo.
echo %z7%___%z8%___%z9% echo. echo. echo. set /p Zahl=%nick1% setzte eine Zahl: if %Zahl%==1 goto 1 if %Zahl%==2 goto 2 if %Zahl%==3 goto 3 if %Zahl%==4 goto 4 if %Zahl%==5 goto 5 if %Zahl%==6 goto 6 if %Zahl%==7 goto 7 if %Zahl%==8 goto 8 if %zahl%==9 goto 9

:1 if %z1%==x goto B if %z1%==0 goto A set z1=0 goto check

:2 if %z2%==x goto B if %z2%==0 goto A set z2=0 goto check

:3 if %z3%==x goto B if %z3%==0 goto A set z3=0 goto check

:4 if %z4%==x goto B if %z4%==0 goto A set z4=0 goto check

:5 if %z5%==x goto B if %z4%==0 goto A set z5=0 goto check

:6 if %z6%==x goto B if %z6%==0 goto A set z6=0 goto check

:7 if %z7%==x goto B if %z7%==0 goto A set z7=0 goto check

:8 if %z8%==x goto B if %z8%==0 goto A set z8=0 goto check

:9 if %z9%==x goto B if %z9%==0 goto A set z9=0 goto check

:Spieler2 cls echo. echo Hier wird gespielt: echo ####################### echo. echo %nick2% hat x echo. echo. echo %z1%___%z2%___%z3% echo. echo %z4%___%z5%___%z6% echo.
echo %z7%___%z8%___%z9% e

...zur Frage

Wie kann ich in einer Java while-Schleife Zufallszahlen generieren?

Hallo,

Ich müsste in einer Java while-Schleife eine Zufallszahl ausgeben, diese müsste bei jeder Wiederholung (in der Schleife) eine neue Zufallszahl von 0-9 generieren. Bei mir kommt aber immer wieder die gleiche Zahl.

Weiss jemand wie das geht? Nebenbei müsste das Programm einfach sobald die Zahl 7 erscheint stoppen. Bis anhin habe ich mal das:

import java.util.Random;
public class Main {
 public static void main(String[] args) {
   Random rn = new Random();
   int zahl = rn.nextInt(10);
   while (zahl < 10) {
     if (zahl != 7){
       System.out.print(zahl);
     } else if (zahl == 7) {
        System.out.print(zahl); 
        break;
     }
  }
 }
}

Danke für eure Hilfe!

...zur Frage

Widerstand berechnen mit Reihe und parallel?

Wie kann ich bei so einer Schaltung den Gesamtwiderstand berechnen?

Z1 und Z2 sind ja in Reihe geschaltet

und Z2 und Z3 parallel geschaltet

Muss man also:

400Ohm + (1/200Ohm + 1/200Ohm) rechnen?

...zur Frage

Kartesische Form in Exponentialform umwandeln?

Hallo,

ich bin gerade stark am verzweifeln und zwar habe ich in meiner Matheaufgabe das Problem, dass ich die Komplexe Zahl -0,51 - j3,2 in die Exponentialform umwandeln muss, rechnerisch komme ich mit 3,24 * e^260° raus aber für die richtige Endlösung müssten es eigentlich -100° sein.

Ich verstehe nicht ganz wie ich bei den Vorzeichen der Komponenten umrechnen muss um auf den richtigen Quadranten zu landen.

Hier nochmal die ganze Aufgabe:

Gegeben sind die komplexen Zahlen:

z1 = 2,5 ⋅ e^j60°, z2 = 6 ⋅ e^j105°, z3 = 2 ⋅ e^−j80°, z4 = 1,5 ⋅ e^j55°

Berechnen Sie √ ((𝑧1 ⋅ 𝑧2) / (𝑧3 −𝑧4)) in Exponential- und Komponentenform!

...zur Frage

Excel Formel für Berechnung ob Wert zwischen 2 Zahlen liegt oder nicht

Suche eine Formel für Excel um zu berechnen ob ein Wert gleich einer der Zahlen oder zwischen den 2 Zahlen liegt. Gegeben ist immer eine kleine Zahl Spalte 1 und eine höhere Zahl in Spalte 2. In Spalte 3 ist die Zahl, die geprüft werden soll, ob sie gleich den Zahlen ist, oder dazwischen liegt, dann soll der Wert 1 ausgegeben werden, wenn nicht, dann die 0

Beispiel: Die 1 Zahl (z1) ist z.B. die 2 Die 2 Zahl (z2) ist z.B. die 4 Wenn nun die 3 Zahl (z3) die 2, 3 oder 4 ist, dann soll das Ergebnis 1 sein, wenn nicht dann eine 0.

Formel müsste dann so aussehen:

Wenn z3 >= z1 und <= z2, dann 1, wenn nicht dann 0

Danke

...zur Frage

wie berechne ich diese Komplexe Gleichung?

für z1, z2 und z3 habe ausgerechnet in nomale kartesischer Form

z1 = 3i-5

z2 = 5-4i

z3 = 2 + 3i

und kam auf diese Gleichung

z²-2z(z2)+z2²+z1-z3

z²-2z(5-4i)+(5-4i)²+-7