Normalverteilung im Intervall

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Uwe,
ich habe mir Deinen Vorschlag sehr zu Herzen genommen!Ich habe jetzt folgende Lösung gefunden:
Mein Code lautet:
Sub Makro1() '=NORMINV($I$3;10;3) Dim str1 As String Dim int1 As Integer int1 = 2 str1 = "F" & int1 Do While (IsEmpty(Range(str1).Value) = False) Do While (Range("I3").Value > Range("I2").Value) Range(str1).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Range("I3").Formula = "=Rand()" 'Range("I3").Calculate Calculate int1 = int1 + 1 str1 = "F" & int1 Range(str1).Select Exit Do Range("I3").Formula = "=Rand()" Application.CutCopyMode = False Exit Do Loop Loop End Sub

Und mein Zellen sind wie folgend gefüllt:
F2 : F... =NORMINV($I$3;10;3) (als Beispiel kann man z.B. F2 bis F6 nehmen)
I2 = 0,00043
I3 = ZUFALLSZAHL()
Allerdings habe ich das Problem, dass ich meinem Excel nicht sagen kann, nur jeweils die jeweilige Zelle zu berechnen (ich habe den Code dafür mit dem Kommentarzeichen markiert). Aktuell berechnet Excel dann meine gesamte Arbeitsmappe. Das macht natürlich den ganzen Rechner wahnsinnig langsam (vor allem da ich extrem viele Datensätze berechnen muss).
Kennst Du eine Art und Weise, wie man dieses Problem lösen kann?
Vielen herzlichen Dank für Deine Hilfe und viele Grüße,
Hans

Hallo, Hans,
hier einmal die Gegenüberstellung beider Zellenformel:

	A	B	C	D	E
1			Ereignisse	10000	10000
2
3			Werte < 0	3	0
4			Werte > 20	3	0
5
6			max	21,2317502	19,7369775
7	10,6517871	6,80771452	min	-1,53210178	0,29620085

Formeln der Tabelle

D1 : =ANZAHL(A:A)
E1 : =ANZAHL(B:B)
D3 : =ZÄHLENWENN(A:A;"<0")
E3 : =ZÄHLENWENN(B:B;"<0")
D4 : =ZÄHLENWENN(A:A;">20")
E4 : =ZÄHLENWENN(B:B;">20")
D6 : =MAX(A:A)
E6 : =MAX(B:B)
A7 : =NORMINV(ZUFALLSZAHL();10;3)
B7 : =norminv_bereich(10;3;0;20)
D7 : =MIN(A:A)
E7 : =MIN(B:B)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
In meinem ersten Beitrag zum Thema habe ich bei der Angabe der Realisierungen um eine 10er-Potenz geiir, es muß da gesetzt sein: 43 von 100.0000 statt 43 von 10.000
Den Beitrag von Konrad bitte ich besonders zu beachten, den je nachdem, wie Du die Ergebnisse dieser Berechnung weiter verwendest, kann es zu (statistischen) Fehlinterpretationen führen.
Wenn du nun immer für einen bestimmten Bereich einmal einen Bereich mit (m;s)-normalverteilten Zufallszahlen füllen willst, ohne dass diese von weiteren Angaben abhängig ist, dann kannst Du eine SUB-Prozedur einsetzen, die Du als Makro aufrufst. Nur bei diesem Aufruf werden dann die Zufallszahlen in diesem Bereich verändert. Die Funktion iist also in eine SUB zu überführen, die also keinen Rückgabewert hat.
In der Prozedur wird eine FOR each rngC in Range("F2:F...") eingebaut, in der das errechnete v dem Wert der aktuellen rngC-Zelle zugewiesen wird.


Option Explicit
Sub NorminvRandom_bereich()
dim m As Double, s As Double, b1 As Double, b2 As Double
Dim v As Double, rngC As Range
m = 10
s = 3
b1 = 0
b2 =20
Randomize
for rngC in range("F2:F10")
Do
v = Application.WorksheetFunction.NormInv(Rnd(), m, s)
Loop While v  b2
rngC = v
next rngC
End Sub

Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread