Faustan

Jupp, da hat er die Wurzel einmal zuviel erwähnt. Du rechnest die Anzahl der Spiele x 0,027027 und erhältst damit die Trefferwahrscheinlichkeit. Daraus ziehst Du die Wurzel und multiplizierst sie mit 0,9729729 (Anmk. Die GegenWahrschnl. (1-1/37)). Aus diesem Ergebnis ziehst Du erneut die Wurzel und multiplizierst mit 3. Damit hast Du 3-Sigma errechnet, was Dir relativ sicher Auskunft gibt, ob es sich hier um Zufall oder nicht handelt. Und dazu muss man dann noch sagen das Sigma immer in beide Richtungen gilt. Also 'Trefferwahrscheinl. - Sigma' sowie 'Trefferwahrscheinl. + Sigma'. Dadurch ergibt sich dann z.Bsp. auf Plein nach vielen Coups ein deutliches Plus im positiven Sigma3 Bereich. Gewinnen ist also Möglich, aber man muss den Absprung schaffen bevor sich der Zufall wieder in Richtung Sigma2 oder eins aufmacht Und noch eine Anmerkung, weils gerade passt. Ich habe auf Dutzenden mal etwas experimentiert, dort ist auch mal +3,6fache Abweichung zu beobachten. Also Sigma3 ist keine feste Grenze, aber sehr grenzwertig & kippt schnell.

@Sachse Schau nochmal auf Seite1 nach. Erwartungswert ist klar Coups*(1/37). Um die einfache Standardabweichung (Sigma1) zu errechnen musst du aber noch die Gegenwahrscheinl. dazunehmen. Coups*(1/37)*(1-1/37). Damit kommste dann auf 818,pups. Daraus die Wurzel ist dann Sigma1. EDIT: Ums noch anzuhängen, ich bin weder Autist noch Mathegenie. Also warten wir mal ab ob ich um 7Uhr30 meine Beiträge editieren darf. Bins aber mehrmals durchgegangen, ich glaub ganz fest an mich.

Erwartungswert: 31144Coups * (2/37) = 1683,45.. Treffer (1683,45*36Stk)-62288 = -1683,8Stk (31144*(2/37)*(1-2/37))sqrt* = +/- 39,906 Sigma1 *Wurzel ziehen 1683,45+39,906 = 1723,356 (1723,356*36)-62288 = -247,18.. Stk = Sigma1 Du hast 1963Stk plus. (((1963+62288)/36)-31144*(2/37))/39,906 = 2,53.. = 2.5-fache Abweichung. Über Sigma2 Erwartungswert: 31144Coups * (3/37) = 2525,18.. Treffer (31144*(3/37)*(1-3/37))sqrt = +/- 48,171 Sigma1 (2573,351*36)-93432 = -791,36..Stk Sigma1 Du hast 2076Stk plus. (((2076+93432)/36)-31144*(3/37))/48,171 = 2,65-fache Abweichung. Über Sigma2

Ich glaub' mittlerweile eher an Zeugen Jehovas oder was es da sonst noch für Sekten gibt, wenn man so liest. Engel, Götter, Chakren und was Rythm ned alles mit an den Tisch nimmt.

Ihr macht das schon... Ekel-Alfred und seine Frau, wie hiess sie nochmal. Ein Herz und eine Seele.

Haa, Mathe ist geil! Meine Lösung dazu (schön zäher Stoff, macht aber nix) Coups *(Wahrscheinlichkeit)*(GegenWahrschnl.) = x daraus die Wurzel = einfache Standardabweichung 31144*(1/37)*(1-1/37) = 818,98. Wurzel aus 818,98 = 28,618. (Also +/-29 Erscheinungen sind Sigma1). 3*28,618 = 85,854 = Sigma3 ((ErwartungsWert+Sigma3)*36Stk)-31144StkEinsatz = G/V = Sigma3 ((31144*(1/37)+85,854)*36)-31144= +2249,01... Stk = Sigma3 Kiesel hat 2984 Stk Plus. Wir drehen die Rechnung um (G/V+Einsatz)/36 = Anzahl Erscheinung einer Zahl - Erwartungswert = Abweichung/Sigma1 = x-fache Abweichung. (((2984+31144)/36)-31144*(1/37))/28,618 = 3,71... = 3,7-fache Standardabw. Somit über Sigma3.

Aber langsam. Muss mich da nochmal mit google beratschlagen

Okaysen. Aber siehste ein, ne. Kann halt mal passieren das man sowas nicht weiss, sicherlich war webzockers Post da auch bissl harsch, aber das man sich immer gleich beharken muss wegen Kleinigkeiten.

Er merkt's aber auch nicht. Das sind 3 Einsätze, Geld futsch.

Löscht €roulette€ dann nochmal seinen Eröffnungspost, bitte? Es ist eine Falschmeldung, Kettenbrief der nicht real ist. Aber die personenbezogenen Daten darin sind real. Also bitte löschen, €roulette€.

Hmm blöder Browser. Das lag nämlich nicht auf roulette-forum.de sondern bei mir aufm Server. So, jetzt nochmal als Anhang hier. Sind 1000 Zeilen fertig vorbereitet. EDIT: Anhang entfernt. Ist nämlich nicht mein ExcelBlatt, sondern Heiß75 seins.

Oha, ich merke aber gerade die Lösung ist saulangsam mit mehreren tausend Zahlen. Sorry. Da muss man sich noch was anderes zusammenbasteln.

Okay, hab's. Hmm, bei mir gings. Bei dir im Blatt kommen Fehlermeldungen. So, ganz rudimentär gelöst. Mit bedingter Formatierung: =istfehler(A1) dann weisse Schrift

Erm €Roulette€, Webseite gelesen? Der Brief kursiert seit 2000 im Netz.

Viel Spass die 20 Minuten. Was machst danach noch, Disse?

Hmmm, ich würde das Blatt 'EC-Serie' löschen, und alles im Blatt 'EC Serie' berechnen. Im Blatt 'EC Serie': 1. Verschiebe Spalten B-I nach hinten zu K. 2. In A1 kommt dann: =WENN(ZEILE(K1)>ANZAHL2(K:K);"";INDEX(K:K;KKLEINSTE(WENN(K$1:K$1000<>"";ZEILE($1:$1000));ZEILE(K1)))) Diese Formel nicht mit Enter-Taste abschliessen, sondern mit Strg+Umschalt+Enter. Es handelt sich nämlich um eine Matrixformel. 3. Spalte A1 markieren und den Inhalt rüberziehen bis Spalte H1. 4. A1 bis H1 markieren und runterziehen.

Du hast warscheinlich im Code jetzt bei jedem Button: Sheets(1).Cells(n, 1).Select oder? Das ist falsch. Deshalb wechselt er immer wieder zu Tabelle1. Lass es einfach so: Cells(n, 1).Select Dann bleibt Excel im aktuellen Blatt und markiert dort nur die Zelle (um zu scrollen). EDIT: Ausserdem darauf achten dass die UserForm nicht modal angezeigt wird. 'Modal' heisst alles wird gestoppt solange die UserForm aktiv ist, du kannst also nicht ins ExcelBlatt wechseln während die UserForm läuft.

Hmmm, versteh' dich nicht. Alles oder ??

@msoprofi Ich seh' grad, hast du da nicht nen Fehler drin? For Row = 3 To 65535 If Cells(1, Row) = "" Then LastRow = Row - 1: Exit For Next Du liest dann von Spalte 3 bis Spalte 65535. Und dort jeweils nur Zeile 1. ?

Neee Range("Tabelle1A2:A100").ClearContents ist ja falsch. Mag VBA nicht. Du musst Sheets(). nehmen. Die Zahl in Klammern sagt dann welches Blatt. Also: Sheets(1).Range("A2:A100").ClearContents sollte funktionieren. Und bei den Buttons: Dim n As Long For n = 2 To Cells(65356, 1).End(xlDown).Row If Sheets(1).Cells(n, 1).Value = "" Then Sheets(1).Cells(n, 1).Value = 0 Exit For End If Next n

Hmm? meine Lösung ist langsam, und Private Sub CommandButton39_Click() = P Range("A2:A100").ClearContents ist schneller? Okay. Aber denk dran das Range() den Content im aktuellen Blatt löscht. Da müsstest noch Sheets(1). davor schreiben *glaub ich*.

Okay, verändere für jeden Button einfach den Code in: Sheets(1).Cells(n, 1).Value = "" Also bei Cells... nur Sheets(1). davor schreiben. Somit wird nur in das erste Blatt (Sheet) geschrieben. Ebenso beim Löschen-Button. Ansonsten löscht er nämlich im aktuellen Blatt. Wollen wir ja nicht. Sollte dann alles so klappen, oder?

Moin, ah okay. Nach viermal lesen hab' ich's verstanden Du möchtest dass das 2te 3te oder 4te Blatt geöffnet bleibt wenn du in die UserForm klickst. Muss man mal schauen, im Code muss man dann noch eingeben das nur in Tabelle1 die Zellen genutzt werden. Sooo fit in Excel Vba bin ich auch nicht, also kann 'nen Moment dauern bis ich mir das ergoogelt habe Bis 'schpeter'.

Sollte klappen mit Cells(n, 1).Select also einfach in eine neue Zeile unter "Cells(n, 1).Value = 0" bei jedem Button schreiben.

Die letzte Eingabe löschen: Dim n As Long For n = 3 To Cells(65356, 1).End(xlDown).Row If Cells(n, 1).Value = "" Then Cells(n - 1, 1).Value = "" Exit For End If Next n Wichtig Variable n ist diesmal 3, damit nicht das Wort 'Permanenz' aus A1 gelöscht wird. Gesamte Permanenz löschen: Dim n As Long Dim n As Long For n = 2 To Cells(65356, 1).End(xlDown).Row If Cells(n, 1).Value = "" Then Exit For Else Cells(n, 1).Value = "" End If Next n