Chi Lu Jung

Hallo Shotgun, werde leider aus deiner Anfrage bezüglich High/Low und Progi nicht schlau. Eine genaue Erklärung, was und wie gesetzt werden soll, wäre klasse.

Hallo Buk hier mal meine kleine Formelsammlung, unter anderen auch für die Berechnung der Kolone: Dutzend =WENN(ISTZAHL(A3);WENN(A3=0;0;GANZZAHL((A3 -1) / 12)+1);"") Kolonne =WENN(ISTZAHL(A3);WENN(A3=0;0;WENN(REST(A3;3)=0;3;WENN(REST(A3 + 1;3)=0;2;1)));"") TV Simple =WENN(ISTZAHL(A3);WENN(A3=0;0;GANZZAHL((A3 -1) / 6)+1);"") TV Plein =WENN(ISTZAHL(A3);WENN(A3=0;0;GANZZAHL((A3 -1) / 3)+1);"") EC Pair/Impair =WENN(ISTZAHL(A3);WENN(A3=0;0;WENN(REST(A3;2) = 0;'"Pair";"Impair"));"") EC Manque/Passe =WENN(ISTZAHL(A3);WENN(A3=0;0;WENN(A3<19;"Manque";"Passe"));"")

Hallo matthias s. weiss zwar nicht ganz, was du willst. Aber ich habe dir mal eine Vorlage zum Testen und Experimentieren geschrieben: Public Sub LetzteZeile() Dim newRow As Long With Application.ActiveSheet '.Cells(zeile, spalte 2=B) newRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'Coup aus Zelle A kopieren, ohne Formel, kopiert direkt die Zahl .Cells(newRow, 2).Value = .Cells(newRow, 1).Value 'Die Zahl 15 stellt die Anzahl der letzten Zeilen dar, welche 'noch angezeigt werden sollen If newRow > 15 Then ActiveWindow.ScrollRow = newRow - 15 End If 'Letzte Zeile + 1 (Spalte B) zur aktiven Zelle machen .Cells(newRow + 1, 2).Activate End With End Sub

Halllo Buk, da mußt du vorher nur abfragen, ab eine Zahl in der Zelle steht. Also Wenn(Istzahl(H3);I2+H3;I2)

Hallo Buk, warum willst du nichts addieren? Na ja, versuche es mal damit: In Zelle J3 die Formel: =SUMME($H$2:$H3) und das Ganze nach unten kopieren. Somit steht also in J4 die Formel: =SUMME($H$2:$H4) etc.

Hallo Buk, bei mir steht in H1 die Formel =SUMME(H3:H1000) Diese Formel berechnet den Saldo. Also bitte ändern. Der Rest ist ok (H2 leer, H3 Formel ok). Du kannst gerne eine Saldospalte einbauen, ich habe nichts dagegen

Hallo Buk, die Breite des BS wird durch die Tabellen festgelegt. Kann man leider nicht ändern, wenn man seine Tabelle vollständig einstellen will. Hier mal ein Download speziell für dich mit einem Excel-Spreedsheet für die Ermittlung der eindeutigen Favoriten. Beschweren kannst du dich, aber ob ich darauf höre DK_Favoriten.zip

Hallo Buk, hat nichts mit der Darstellung als "Code" zu tun. Um nur die Formel in Excel einzufügen bitte über das Menü "Einfügen -> Inhalte einfügen..." und dann "Text" auswählen. Geht auch mit dem Pop-Up-Menüpunkt "Inhalte einfügen..." (Aufruf über rechte Maustaste in der Zielzelle).

Hallo, habe doch glatt den Download vergessen. Also hier eine Vorlage für die Berechnung von Wurfweiten: WW.zip

Hallo David, so kompliziert muss man es gar nicht machen. Du brauchst einfach nur eine Auflistung der Kesselzahlen, beginnen wir mal bei 0. Dann kannst du mit der Funktion "VERGLEICH" die Position einer Zahl bestimmen. Die Differenz zwischen den beiden Positionen zweier gefallener Zahlen ist dann die Wurfweite. Da ich die Zahlen von 0 nach rechts aufgelistet habe, stellt die Differenz die Wurfweite Rechts dar. Ziehen wir nun von 37 (Zahlen) die Wurfweite Rechts ab, bekommen wir die Wurfweite nach Links. Hier die Legende mit der Auflistung der Kesselzahlen. Der hellblaue Bereich (Bereich von A2:A75) ist mit den Namen "KZahlen" versehen. Formeln in den Zellen als QuickNotiz" wurden durch ' ersetzt A 1 Kessel 2 0 3 32 4 15 5 19 6 4 7 21 8 2 9 25 10 17 11 34 12 6 13 27 14 13 15 36 16 11 17 30 18 8 19 23 20 10 21 5 22 24 23 16 24 33 25 1 26 20 27 14 28 31 29 9 30 22 31 18 32 29 33 7 34 28 35 12 36 35 37 3 38 26 39 0 40 32 41 15 42 19 43 4 44 21 45 2 46 25 47 17 48 34 49 6 50 27 51 13 52 36 53 11 54 30 55 8 56 23 57 10 58 5 59 24 60 16 61 33 62 1 63 20 64 14 65 31 66 9 67 22 68 18 69 29 70 7 71 28 72 12 73 35 74 3 75 26 Hier die Ermittlung der Wurfweiten: Formeln in den Zellen als QuickNotiz" wurden durch ' ersetzt A B C D 4 Wurfweiten 5 Coups Position Rechts Links 6 33 23 7 14 26 3 34 8 32 2 24 13 9 32 2 0 37 10 7 32 30 7 11 33 23 9 28 12 30 16 7 30 13 11 15 1 36 14 33 23 8 29 15 30 16 7 30 16 12 34 18 19 17 12 34 0 37 Dazu servieren wir noch die Formeln, dann sind auch die Excel-Freaks glücklich: A B C D 4 Wurfweiten 5 Coups Position Rechts Links 6 33 =WENN(ISTZAHL(A6);VERGLEICH($A6;KZahlen;0);"") 7 14 =WENN(ISTZAHL(A7);VERGLEICH($A7;KZahlen;0);"") =WENN(ISTZAHL(B7);WENN(B7>B6;B7-B6;B6-B7);"") =WENN(ISTZAHL(C7);37-C7;"") 8 32 =WENN(ISTZAHL(A8);VERGLEICH($A8;KZahlen;0);"") =WENN(ISTZAHL(B8);WENN(B8>B7;B8-B7;B7-B8);"") =WENN(ISTZAHL(C8);37-C8;"") 9 32 =WENN(ISTZAHL(A9);VERGLEICH($A9;KZahlen;0);"") =WENN(ISTZAHL(B9);WENN(B9>B8;B9-B8;B8-B9);"") =WENN(ISTZAHL(C9);37-C9;"") 10 7 =WENN(ISTZAHL(A10);VERGLEICH($A10;KZahlen;0);"") =WENN(ISTZAHL(B10);WENN(B10>B9;B10-B9;B9-B10);"") =WENN(ISTZAHL(C10);37-C10;"") 11 33 =WENN(ISTZAHL(A11);VERGLEICH($A11;KZahlen;0);"") =WENN(ISTZAHL(B11);WENN(B11>B10;B11-B10;B10-B11);"") =WENN(ISTZAHL(C11);37-C11;"") 12 30 =WENN(ISTZAHL(A12);VERGLEICH($A12;KZahlen;0);"") =WENN(ISTZAHL(B12);WENN(B12>B11;B12-B11;B11-B12);"") =WENN(ISTZAHL(C12);37-C12;"") 13 11 =WENN(ISTZAHL(A13);VERGLEICH($A13;KZahlen;0);"") =WENN(ISTZAHL(B13);WENN(B13>B12;B13-B12;B12-B13);"") =WENN(ISTZAHL(C13);37-C13;"") 14 33 =WENN(ISTZAHL(A14);VERGLEICH($A14;KZahlen;0);"") =WENN(ISTZAHL(B14);WENN(B14>B13;B14-B13;B13-B14);"") =WENN(ISTZAHL(C14);37-C14;"") 15 30 =WENN(ISTZAHL(A15);VERGLEICH($A15;KZahlen;0);"") =WENN(ISTZAHL(B15);WENN(B15>B14;B15-B14;B14-B15);"") =WENN(ISTZAHL(C15);37-C15;"") 16 12 =WENN(ISTZAHL(A16);VERGLEICH($A16;KZahlen;0);"") =WENN(ISTZAHL(B16);WENN(B16>B15;B16-B15;B15-B16);"") =WENN(ISTZAHL(C16);37-C16;"") 17 12 =WENN(ISTZAHL(A17);VERGLEICH($A17;KZahlen;0);"") =WENN(ISTZAHL(B17);WENN(B17>B16;B17-B16;B16-B17);"") =WENN(ISTZAHL(C17);37-C17;"") Die Erklärung der einzelnen Formeln: =WENN(ISTZAHL(A6);VERGLEICH($A6;KZahlen;0);"") Über "Vergleich" können wir die Position eines Suchkriteriums in einem Bereich ermitteln. Wir suchen also unsere gefallene Zahl aus Zelle A6 in den Kesselzahlen, also in den Bereich mit den Namen "KZahlen". Der dritte Parameter 0 gibt an, dass Vergleich den ersten Wert findet, der genau gleich dem Suchbegriff ist. Zur Ermittlung der Wurfweite nach Rechts müssen wir nun die Positionen der beiden gefallenen Zahlen von einander abziehen. Wenn die Position der zuletzt gefallene Zahl (B7) größer ist als die von B6, dann lautet die Rechnung "B7 - B6", ansonsten natürlich umgekehrt. =WENN(ISTZAHL(B7);WENN(B7>B6;B7-B6;B6-B7);"") Die Wurfweite nach Links wird dann ganz einfach durch die Rechnung "37 (Zahlen) - Position WW Rechts" ermittelt. Das wars =WENN(ISTZAHL(C7);37-C7;"") Als Vorlage habe ich ein Excel-Spreed mit der Berechnung der Wurfweiten angehängt. Ich hoffe, ihr könnt es gebrauchen.

Hallo Buk, Namen kannst du nur über das Menü "Einfügen -> Namen -> Definieren" verwalten. In der Bearbeitungsleiste kannst du nur die Namen anlegen. Also bitte übers Menü das Verwaltungsfenster für die Namen aufrufen und dort den Namen "Signalwerte" anwählen. Dann in der untersten Zeile "Bezieht sich auf:" entsprechend deinem neuem Bereich anpassen. Noch ein Tipp: die Excel-Hilfe gibt zu solchen Themen erschöpfend Auskunft QuickNotiz ist der Text, der aufgeblendet wird, wenn du in der Tabelle über ein Feld mit einer Formel gehst. Ich hoffe, ich konnte dir helfen ... bis demnächst im gleichen Kino

Hallo Buk, ist schon ok. Und ich gelobe, in Zukunft meine Postings klarer und verständlicher zu gestalten. Wenn ich schon mit dem Anspruch hier auftrete, ein verständliche Einführung in die Excel-Programmierung zu geben, so muss ich dies auch so tun, dass man es auf Anhieb verstehen kann. B:

Hallo Buk, zum besseren Veständnis hier noch ein Screenshot:

Hallo Buk, freut mich, dass du dich um "elegante" Lösungen bemühst. Mach dies aber nicht auf Biegen oder Brechen, sondern suche dir die Lösung mit der du am Besten klarkommst. Ansonsten macht das Ganze ja keinen Spaß Nun zu deiner Frage: Ich hoffe, du hast diesen Satz nicht überlesen. Wenn ja, dann hier noch einmal im Klartext. Damit die Formel SVERWEIS funktioniert, muss es natürlich einen Bereich mit den Namen "Signalwerte" geben. In meiner Tabelle ist dies der hellblau hinterlegte Bereich bzw der Bereich D2:E8. Ich hoffe, du kannst mit der Bennung von Bereichen etwas anfangen. Wenn nicht, hier eine Kurzanleitung. 1) Den Bereich D2:E8 markieren. 2) In der Bearbeitungsleiste steht ja ganz links immer die Zelle mit Spalte / Zeilennummer. Nach der Makierung steht hier nun "D2". Nun diese einfach mit den Namen "Signalwerte" überschreiben und per Enter-Taste bestätigen. Nun müßte es klappen. Namen kannst du auch über das Menü "Einfügen -> Namen -> Definieren ..." erfassen.

Hallo Buk, das mit den sieben Wenn-Bedingungen siehst du richtig. Mit einem Trick kann man Excel zu mehr überreden. Aber den Trick möchte ich hier gar nicht darlegen. Jetzt denkt ihr: "Was für ein Ar......" Aber bedenkt , wer soll diese Wenn-Bedingungen noch durchschauen. Das ist schlechter Programmierstil und den bringe ich euch nicht bei - das kann ein anderer machen. Also erlaube ich mir, eine elegante Lösung für dein Problem darzulegen: Formeln in den Zellen als QuickNotiz" wurden durch ' ersetzt A B C D E 1 Signal Plus/Minus Signal Plus/Minus 2 I -1 I -1 3 II 1 II 1 4 h -100 h -100 5 hh 100 hh 100 6 H -100 H 200 7 V -200 V -200 8 o 0 Und hier nur die Formeln: A B C D E 1 Signal Plus/Minus Signal Plus/Minus 2 I =WENN(A2>"";SVERWEIS(A2;Signalwerte;2;FALSCH);"") I -1 3 II =WENN(A3>"";SVERWEIS(A3;Signalwerte;2;FALSCH);"") II 1 4 h =WENN(A4>"";SVERWEIS(A4;Signalwerte;2;FALSCH);"") h -100 5 hh =WENN(A5>"";SVERWEIS(A5;Signalwerte;2;FALSCH);"") hh 100 6 H =WENN(A6>"";SVERWEIS(A6;Signalwerte;2;FALSCH);"") H 200 7 V =WENN(A7>"";SVERWEIS(A7;Signalwerte;2;FALSCH);"") V -200 8 =WENN(A8>"";SVERWEIS(A8;Signalwerte;2;FALSCH);"") o 0 Der hellblaue Bereich ist mit dem Namen "Signalwerte" belegt. Somit kann man mit SVERWEIS aufgrund des Wertes in Spalte "A" den entsprechenden Wert in den "Signalwerten" suchen. Vorteil der Lösung ist neben der Übersichtlichkeit auch die beliebige Erweiterbarkeit der Tabelle. Wenn neues Signal dazukommt, einfach das Signal mit Plus/Minus Wert eintragen und den Namen "Signalwerte" auf den erweiterten Bereich anpassen. Ich hoffe, ich konnte dir etwas helfen. Hier kannst du den Befehl SVERWEIS im Detail nachlesen.

Hallo Buk, ich habe I und II als großes "i" interpretiert. Das war offentsichtlich falsch. Welches Zeichen hast du den verwendet? Du kannst es doch ganz einfach ändern, in deim du entweder in deiner Formel I verwendest oder in meiner Formel dein Zeichen.

Hallo Buk, der Ansatz war schon nicht schlecht. Du hast nur die Klammern mal falsch gesetzt. Du mußt immer darauf achten, die Bedingungen ineinander zu verschachteln! Hier mal mein Vorschlag =WENN(A1>"";WENN(A1="I";-1;WENN(A1="II";1;WENN(A1="h";-100;WENN(A1="hh";100;0))));"") Ich hoffe, es hilft dir weiter. Hallo Shotgun, ich muss dir leider sagen, deine Formel ergibt keinen Sinn Im Oder-Teil kannst du Bedingungen zusammenfassen - wenn dann eine von denen eintrifft, dann wird EINE Anweisung ausgeführt. Buk benötigt aber für verschiedene Bedingungen VERSCHIEDENE Anweisungen.

Hallo Spigero, klasse. Verräst du uns auch, um welches Casino es sich dabei handelt? Danke

Hallo Spigero, geht schon deshalb nicht, weil bei allen - mir bekannten - Live-Roulette Casinos VOR dem Abwurfzeitpunkt gesetzt werden muss. Oder kennst du ein Online Casinos, wo das anders ist?

Hallo ecart, vielen Dank für deine positive Rückmeldung. Hatte schon befürchtet, dass keiner das Tool gebrauchen kann bzw. die meisten Excel 95 haben. Bei Fehler bitte gleich melden, damit wir das Tool bugfree bekommen

Hallo Shotgun und Excel-Einsteiger, auf dieser Webseite findet ihr eine umfangreiche Linkliste mit Verweisen auf Excel-Grundlagenkursen und Excel-Beispielen. Ich denke, da ist für jeden etwas dabei.

Hallo mathias, auf jeden Fall Respekt für deine Lösung. Die war gar nicht so schlecht. Aber bei GoTo reagieren fast alle Programmierer allergisch, deshalb konnte ich mir den Hinweis nicht verkneifen

Hallo Drapondur, wenn du Excel 97 oder höher hast, kannst du mit meinen Roulette Tools deine Langzeitauswertungen vornehmen. Bitte die Tools downloaden. Die angehängte Excel-Datei kannst du dann als Vorlage für deine Langzeitauswertungen nehmen. Abbruchtest.zip

Hallo mathias, erst einmal ein Tipp von einem "Profi". Verwende NIE, NIEMALS ein GoTo. In Deinem Fall wäre ein "Exit For" oder sogar ein "Exit Sub" möglich Hallo matthias s., Hier ein Makro zu Abfrage der letzten gefüllten Zeile und kopieren des entsprechenden Coups: Public Sub LetzteZeile() Dim newRow As Long With Application.ActiveSheet '.Cells(zeile, spalte 2=B) newRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'Coup aus Zelle A kopieren, ohne Formel, kopiert direkt die Zahl .Cells(newRow, 2).Value = .Cells(newRow, 1).Value 'alternativ mit Formel "=Axx", hierzu die vorhergehendes 'Zeile löschen und 'Kommentarzeichen "'" in der nachfolgenden Zeile 'entfernen '.Cells(newRow, 2).formula = "=A" & newRow End With End Sub Dieses Makro kannst du nun einem Button zuweisen. Besser ist vielleicht, dass Makro in einer benutzerdefinierten Symbolleiste zu hängen. Diese Symbolleiste kannst du dann frei in Excel positionieren. Zur Erstellung einer Symbolleiste und eines Menüpunktes folgende Schritte vornehmen: 1) Menüpunkt "Ansicht -> Symbolleisten -> Anpassen" aufrufen 2) Im Fenster "Anpassen" auf Seite "Symbolleisten" über Button "Neu" eine neue Symbolleiste "Tools" anlegen". 3) Die neue Leiste wird in Excel eingeblendet 4) Nun die Seite "Befehle" im Fenster "Anpassen" anklicken 5) Dort in der Liste "Kategorien" den Punkt "Makros" auswählen 6) Nun in der Liste "Befehle" den Punkt "Menüelement anpassen" mit der Maus anklicken und mit gedrückter Maustaste auf die neue Symbolleiste "Tools" ziehen 7) In der Symbolleiste "Tools" nun den neuen Menüpunkt mit rechter Maustaste anklicken 8) Im nun erscheinenden Pop-Up Menü den letzten Punkt "Makro zuweisen" auswählen 9) Jetzt dein Makro "LetzteZeile" auswählen 10) Noch einen Namen bzw. Symbol über das Pop-Up Menü auswählen und fertig Viel Spaß damit

Hallo mylord, erst einmal würde mich interessieren, ob der Link nun funktioniert bzw. kannst du die Datei nun herunterladen? Deine Fragen werden ausführlich mit Beispielen in einer Excel-Datei erklärt. Grundsätzlich ist es richtig, dass du mit Permanenzen-Dateien, welche als Textdateien (*.txt, z.b. Download von Hamburg) vorliegen, automatisch Langzeitauswertungen vornehmen kannst. Hierzu musst du ein Tabellenblatt mit deinen Marsch in Form von Excel-Formeln erstellen. Dann kannst du mit meinen Tools eine Langzeitauswertung vornehmen. Wenn die Auswertung beendet ist, wird ein Ergebnisblatt mit Summen angelegt. Aber schaue dir mal die Beispiele in der mitgelieferten Excel-Datei an, dann wird es klarer!