Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallszahlen mit rnd() - was für profis

Zufallszahlen mit rnd() - was für profis
20.02.2005 18:48:03
Matthias
hi zusammen,
ich habe mir mit vba einen code gebastelt der über rnd() laufend 9 zufallszahlen generiert. diese müssen in der summe 1 (bzw.100%) ergeben. leider liefert der code von mir nur rund 100 verschiedene lösungen - bei x durchläufen - sprich excel findet immer nur die gleichen lösungen. an was kann das liegen - denn wenn ich das ganze auf 4 zufallszahlen reduziere liefert er mir x lösungen für x durchläufe. danke für die hilfe
matthias
der code ist im beiligenden excelsheet zu finden.
https://www.herber.de/bbs/user/18383.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zufallszahlen mit rnd() - was für profis
Udo
Verwende Randomize
Udo
randomize aber wie? und wo?
21.02.2005 11:36:50
matthias
hi das mit randomize funktioniert nicht so richtig. er rechnet länger aber die ergebnisse sind immer noch doppelt. wie verwende ich randomize richtig. danke

Sub zufallszahl()
Dim i1 As Variant
Dim i2 As Variant
Dim i3 As Variant
Dim i4 As Variant
Dim i5 As Variant
Dim i6 As Variant
Dim i7 As Variant
Dim i8 As Variant
Dim i9 As Variant
Dim n As Integer
Dim a As Integer
Sheets("tabelle1").Activate
For n = 1 To 500
a:
Randomize
i1 = Rnd()
i2 = Rnd()
i3 = Rnd()
i4 = Rnd()
i5 = Rnd()
i6 = Rnd()
i7 = Rnd()
i8 = Rnd()
i9 = 1 - i1 - i2 - i3 - i4 - i5 - i6 - i7 - i8
If i9 < 0 Then GoTo a Else
Range("a" & n).Value = i1
Range("b" & n).Value = i2
Range("c" & n).Value = i3
Range("d" & n).Value = i4
Range("e" & n).Value = i5
Range("f" & n).Value = i6
Range("g" & n).Value = i7
Range("h" & n).Value = i8
Range("i" & n).Value = i9
Next n
End Sub

Anzeige
AW: Zufallszahlen mit rnd() - was für profis
Fred
Das ist so gut wie unmöglich, dass du jemals auf 1 kommst, denk mal darüber nach.
Fred
AW: Zufallszahlen mit rnd() - was für profis
gunter
Eine kleine Ergänzung zum deinem Zufallszahlenproblem...
probier doch mal folgendes:
(Die Konstante "Max" gibt die angestrebte Summe an, "anzahl" steht für die Anzahl der Zahlen, die diese Summe bilden sollen... viel Spaß)
Option Explicit

Sub zufi()
Dim zufiarray(1 To 13) ' Obergrenze muß gleich "anzahl" sein
Const Max = 100
Const anzahl = 10
Erase zufiarray
Dim i, j, x, zufallsrahmen, zufallszahl, summe, rest As Integer
rest = Max
Do
For j = 1 To anzahl
Randomize
zufallsrahmen = Int((rest) * Rnd) + 1 'reduziert den Effekt, daß die ersten Zahlen auch die größten sind
zufallszahl = Int((zufallsrahmen * Rnd) + 1)
summe = 0
For i = 1 To anzahl
summe = summe + zufiarray(i)
Next i
If Not summe + zufallszahl > Max Then
zufiarray(j) = zufiarray(j) + zufallszahl
rest = rest - zufallszahl
End If
Next j
If summe = Max Then 'sicherstellen, daß kein Wert = 0 ist
For x = 1 To anzahl
If zufiarray(x) = "" Then
Erase zufiarray
rest = Max
summe = 0
End If
Next x
End If
Loop Until summe = Max
'For i = 1 To anzahl
'    Cells(1, i) = zufiarray(i)
'Next i
End Sub

Anzeige

10 Forumthreads zu ähnlichen Themen

Dezimahlzahlen mit 2 Nachkommastellen
Karl

Hallo zusammen,
ich habe festgestellt Dezimalzahlen in Excel unterschiedlich dargestellt werden.
Bsp.: Zelle 10,00 Bearbeitungszeile 10
Zelle 10,95 Bearbeitungszeile 10,95
Zelle 10,40 Bearbeitungszeile 10,4
Das Problem ist wenn ich diese Excel Tabelle in eine CSV-Datei umge...
20.03.2015 17:41:12
Thread-ID: 1416246
3 Beiträge
Anzeige
Label mit Wert bestücken und 2 Nachkommastellen
Hansi

Hallo Leute,wer kann mir sagen, wie ich ein Label mit einem Wert versehen kann, der zudem noch auf 2 Stellen gerundet wird?Mein Versuch ist gescheitert:Label100.Caption = "" & Application.WorksheetFunction.Round(Worksheets(1).Range("E42"), 2) & " Euro"vielleicht wisst ihr ja Rat!
06.01.2003 17:58:58
Thread-ID: 199603
4 Beiträge
Single Anzeige mit 2 Nachkommastellen
Werner

Hallo VBA Programmierer.
Kann ich beim Datentyp Single die Anzeige mit 2 Nachkommastellen erzwingen?
Danke für euere Hilfe.
Freundliche Grüße
Werner
02.02.2020 11:34:42
Thread-ID: 1738014
10 Beiträge
Anzeige
Dezimahlzahlen mit 2 Nachkommastellen
Karl

Hallo zusammen,
ich habe festgestellt Dezimalzahlen in Excel unterschiedlich dargestellt werden.
Bsp.: Zelle 10,00 Bearbeitungszeile 10
Zelle 10,95 Bearbeitungszeile 10,95
Zelle 10,40 Bearbeitungszeile 10,4
Das Problem ist wenn ich diese Excel Tabelle in eine CSV-Datei umge...
20.03.2015 17:41:12
Thread-ID: 1416246
3 Beiträge
Textfeld immer mit 2 Nachkommastellen versehen
Hansi

Hallo Leute,vorhin habt ihr mir gezeigt, wie man problemlos textfelder einer userform mit zellen befüllen kann.wie aber kann man diese immer mit zwei nachkommastellen versehen?Beispiel:ich lese den Wert "7,6" aus einer zelle aus - dieser soll dann in meinem Textfeld mit 7,60 erscheinen. Eine Än...
22.11.2002 10:12:42
Thread-ID: 184286
9 Beiträge
Label mit Wert bestücken und 2 Nachkommastellen
Hansi

Hallo Leute,wer kann mir sagen, wie ich ein Label mit einem Wert versehen kann, der zudem noch auf 2 Stellen gerundet wird?Mein Versuch ist gescheitert:Label100.Caption = "" & Application.WorksheetFunction.Round(Worksheets(1).Range("E42"), 2) & " Euro"vielleicht wisst ihr ja Rat!
06.01.2003 17:58:58
Thread-ID: 199603
4 Beiträge
Single Anzeige mit 2 Nachkommastellen
Werner

Hallo VBA Programmierer.
Kann ich beim Datentyp Single die Anzeige mit 2 Nachkommastellen erzwingen?
Danke für euere Hilfe.
Freundliche Grüße
Werner
02.02.2020 11:34:42
Thread-ID: 1738014
10 Beiträge
Zahlen nur mit 2 Nachkommastellen
chris58
Hallo !
Ich bitte um Hilfe. Ich habe die Datei hier angehängt bei der ich keine Lösung finde.
Folgendes Problem:
Ich hole mir mittels VBA die aktuellen Goldkurse. Von dieser Seite sind. Diese sind mit 4 Nachkommastellen gelistet. In meiner Excel Datei kann werden die meisten (außer die...
09.06.2022 17:20:30
Thread-ID: 1886696
10 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
2
8
3
9
9
2
8
3
9
9