Anzeige
Archiv - Navigation
676to680
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
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Simulieren

Simulieren
07.10.2005 13:17:21
lourawn
Hi zusammen!
Könnt Ihr mir aus der Patsche helfen. Schreibe den Eintrag noch mal, da er von letzter Nacht ist und schon zeimlich weit unten im Forum steht.
Ich bin einer, der sich schon einigermaßen auskennt, wenn es allerdings an VBA, Makros, Simulationen etc geht, so bin ich ein Greenhorn vor dem Herrn.
Folgendes will ich machen, was für einen Experten wahrscheinlich kein Problem ist: Ich will eine Summe aus zwei Zellen bilden. Die Summanden dürfen nur in einem von mir definierten Intervall liegen. Die beiden Summanden will ich nun z.B. 10.000 mal innerhalb der Intervalle simulieren lassen (idealerweise mit einem einzigen Klick auf ein verknüpftes Textfeld), und schließlich den Mittelwert der 10.000 Summen bilden.
Für die Summanden würde ich die Zufallszahl-Funktion wählen und das mit der Mittelwertbildung kriege ich auch noch hin. Der Knackpunkt ist der Durchlauf der 10.000 Additionen mit einem Mausklick.
Vielen Dank und schönes WE
Dennis

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Simulieren
07.10.2005 13:31:41
Erich
Hallo Dennis,
warum nicht einfach so (mit 10000 statt 10 Zeilen):
 
 ABCDEF
152,426252850,5414296102,967682 vonbis
25,9169100446,2819452,1988501 0,02100
340,943453677,3156578118,259111 Mittelwert:51,2649318
410,785970733,762988244,5489589   
574,886836883,947068158,833905   
635,43309130,719775866,1528669   
782,675434580,2106151162,88605   
842,550230350,387592192,9378224   
994,080383156,8286385150,909022   
1072,950754717,370738290,321493   
Formeln der Tabelle
A1 : =ZUFALLSZAHL()*($F$2-$E$2)+$E$2
B1 : =ZUFALLSZAHL()*($F$2-$E$2)+$E$2
C1 : =A1+B1
A2 : =ZUFALLSZAHL()*($F$2-$E$2)+$E$2
B2 : =ZUFALLSZAHL()*($F$2-$E$2)+$E$2
C2 : =A2+B2
F3 : =MITTELWERT(A1:A10)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Simulieren
07.10.2005 13:52:49
lourawn
Erich, Du bist der Beste! Der Denkanstoss dürfte mir bei meinem Problem helfen.
Vielen Dank! Schönes WE us KÖLLE!
Dennis
AW: Simulieren
07.10.2005 16:49:58
Erich
Hallo Dennis,
"Denkanstoss" passt schon, aber der Beste bin ich sicher nicht:
Eine kleine Korrektur meines Vorschlags ist nötig:
Der Mittelwert in F3 sollte doch über die Summen gebildet werden, also nicht über Spalte A, sondern
F3 :=MITTELWERT(C1:C10000)
Auch dir eine schönes WE und
Grüße von Erich aus Kamp-Lintfort nach Kölle
AW: Simulieren
07.10.2005 13:56:33
Heiko
Hallo Dennis,
mal so als Ansatz:
Sub Zufall() Dim lngObergrenze As Long, lngDurchlaeufe As Long, lngCounter As Long Dim dblGesamt As Double lngObergrenze = Application.InputBox("Geben Sie die Obergrenze ein !", " Obergrenze", "0", Type:=1) lngDurchlaeufe = Application.InputBox("Geben Sie die Anzahl der Durchläufe ein !", " Durchläufe", "0", Type:=1) For lngCounter = 1 To lngDurchlaeufe Randomize dblGesamt = dblGesamt + Int((lngObergrenze * Rnd) + 1) + Int((lngObergrenze * Rnd) + 1) Next lngCounter MsgBox "Ergebnis = " & dblGesamt / lngDurchlaeufe End Sub
Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: Simulieren
07.10.2005 14:19:24
lourawn
Moin Heiko!
Bin in VBA ne absolute Nulpe! Der Code ist allerdings interessant. Werde mich damit ne Runde beschäftigen und mal sehen, was ich damit so anstellen kann, wenn ich den in meine Arbeit integriere.
Vielen Dank und schönes WE.
Dennis

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige