Zufallszahlen mit rnd

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zufallszahlen mit rnd
von: Matthias
Geschrieben am: 19.02.2005 10:10:28
Hallo zusammen,
ich bin in vba noch nicht so fit um komplexe probleme damit zu lösen - wie ich aber gesehen habe ist dieses forum spitze somit kann ich sicherlich mit eurer hilfe die probleme die ich vba technisch habe lösen.
folgendes beschäftigt mich aktuell
ich möchte 5 zufallszahlen generieren mit rnd() kein problem. allerdings sollten diese zusammen 1 ergeben und die verteilung gleich wahrscheinlich sein. hoffe euch fällt was gutes ein mir fällt nur eine lösung ein die nicht gleischwahrscheinlich ist. danke im voraus

Bild

Betrifft: AW: Zufallszahlen mit rnd
von: Tinu
Geschrieben am: 19.02.2005 12:12:01
Hallo Matthias
genügt Dir eventuell auch eine Lösung ohne VBA? Siehe:
https://www.herber.de/bbs/user/18328.xls
Gruss
Tinu
Bild

Betrifft: AW: Zufallszahlen mit rnd in VBA
von: Matthias
Geschrieben am: 19.02.2005 12:25:19
ne ich bräuchte das ganze in vba - leider
Bild

Betrifft: AW: Zufallszahlen mit rnd in VBA
von: Ramses
Geschrieben am: 19.02.2005 12:35:51
Hallo
Bei VBA-Gut sollte es doch kein Problem sein, die Formellösung in VBA zu überführen
5 Variablen werden mit Zufallszahlen ermittelt
1 Variable nimmt die Gesamtsumme auf
5 Weitere Variablen übernehmen die Funktion von spalte B
Wo ist das Problem ?
Gruss Rainer
Bild

Betrifft: AW: Zufallszahlen mit rnd
von: ransi
Geschrieben am: 19.02.2005 12:44:55
hallo mattias
so sieht die einfach aber geniale lösung von tinu in VBA nachgebildet aus.
Option Explicit
Public

Sub t()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Dim ges As Double
a = Rnd()
b = Rnd()
c = Rnd()
d = Rnd()
e = Rnd()
ges = a + b + c + d + e
MsgBox a / ges & Chr(13) & b / ges & Chr(13) & c / ges & Chr(13) & d / ges & Chr(13) & e / ges
'MsgBox WorksheetFunction.Sum(a / ges + b / ges + c / ges + d / ges + e / ges)
End Sub

ransi
Bild

Betrifft: AW: Zufallszahlen mit rnd - aber - was für profis
von: matthias
Geschrieben am: 19.02.2005 20:21:20
problemstellung: 9 variablen - die per zufallszahl ergeben 100%
so jetzt bin ich auch auf eine fast zufriedenstellende lösung gekommen. leider erzielt excel wenn ich viele variablen mit rnd ermittle sehr sehr häufig immer die selben zahlenkombinationen - woran kann das liegen

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 200
a:
i1 = Rnd()
i2 = Rnd()
i3 = Rnd()
i4 = Rnd()
i5 = Rnd()
i6 = Rnd()
i7 = Rnd()
i8 = Rnd()
i5 = 1 - i1 - i2 - i3 - i4 - i5 - i6 - i7 - i8
If i5 < 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

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zufallszahlen mit rnd"