Jump to content

Recommended Posts

Hallo Rouletti

Deine Mail habe ich erhalten.

Ich bin nur Sonntags im Netz, deshalb auch die späte Antwort.

Benutze bitte den Download aus meinen Posting vom May 16 2004, 01:03.

Der Downlod ist mit dem vom 02. Mai identisch, er wurde an diesem Tag nochmal überarbeitet. Er ist immer noch auf dem Server.

Ich habe die Datei gerade heruntergeladen.

Eine Gebrauchsanweisung ist beigelegt. Wenn es irgendwelche Probleme gibt melde dich einfach nochmal.

Besten Dank für deinen Hinweis. Ich werde die alten Downloads entfernen und auf die neue .zip Datei nochmals hinweisen.

Beste Grüße

Wenke :wink4:

Link zu diesem Kommentar
Auf anderen Seiten teilen

  • 1 month later...
  • 5 weeks later...
  • 3 weeks later...

@Chi

Hallo, tolle Leistung mit dem Download der Permanenzen, es klappt super. Nachdem ich mir für Programmierung bzw. Formelschreiben in Excel viele Anregungen geholt habe, klappt auch meine Analyse hervorragend.

Ich habe mit dem Sheet "Hamburg.xls" von Chi einmal angefangen und mein eigenes Blatt entsprechen darauf aufgebaut. Eine tolle Grundlage, super Arbeit - einfach Klasse, Chi.

Anmerk: Die Permanenz Tisch 4 vom 09.02.2004 wird nicht berechnet - #N/V in der gesamten Spalte. Ich vermute einmal, daß die Reihe dort zu lang ist, kann das sein. Ansonsten ist es eine großartige Hilfe.

Herzlichen Dank dafür

@Wenke

Daß man so ein Teil noch erweitert, war ja wohl nur eine Frage der Zeit. Soweit ich bisher hier im Forum lesen konnte, hast Du Dich bisher neben Chi am meisten mit derartigen Aufgaben beschäftigt. Ebenfalls eine Superarbeit, die es ungemein erleichtert seine eigenen Versuche schnell und unkompiziert zu Testen.

Ich habe es gerade getestet und es läuft, wie beschrieben - auch mit dem nochmaligen Laden der Hamburg.xls.

Ich habe das voreingestellte Jahr beibehalten und den Januar durchlaufen lassen. Ratzfatz kamen die Daten innerhalb von knapp 3 min. Der 06.01.99 Tisch 1 wurde nicht bespielt, also wurde Hamburg.xls geschlossen - nach öffnen liefen die Macros wie geplant weiter.

Am Ende sollen die "100" gelöscht werden, aber da stieg das Programm mit Laufzeitfehler 1004 aus:

Sub Die_Hundert_löschen()

' Die_Hundert_löschen Makro

Columns("B:AF").Select

Range("AF1").Activate

Selection.Replace What:="100", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

Der Debugger meckerte den roten Teil an und das Progamm stoppte natürlich...

Na gut, passiert halt, dafür hab ich nur ein Lächeln, wegdrücken, nächsten Monat, weiter geht´s. Wollte nur einen kleinen Hinweis geben, nicht meckern...

Auch Dir damit ein herzliches Dankeschön, ich habe aus diversen Beiträgen und Programmteilen ausgesprochen viele Anregungen bekommen. Ich kann nur sagen, Hut ab und weiter so!!!

Liebe Grüße

Oldholborn

Rechtchreibfehler sind mit Absicht eingebaut. Der Glückliche, der sie findet, darf sie behalten...

Link zu diesem Kommentar
Auf anderen Seiten teilen

@ Wenke

Hi, hab mich nochmals mit dem Code beschäftigt an der Stelle. Warum es da was zu meckern gab, weiß ich nicht. Nachdem ich die Anweisung weggenommen habe, läuft das Macro durch.

Hier die Änderung:

bleibt

Selection.Replace What:="100", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False

entfällt

, SearchFormat:=False, ReplaceFormat:=False

ich kann´s mir nicht erklären, warum, syntaktisch scheint alles richtig zu sein, aber mein Excel2000 weiß scheinbar nichts damit anzufangen.

Was soll´s, jetzt läuft´s hervorragend. :smoke:

Nochmals herzlichen Dank für die Arbeit, ich kann´s nachvollziehen. Es sind ja immer so die "Kleinigkeiten", die man mal eben so schnell noch kurz vorm Zubettgehen machen will, und dann... wieder ne Nacht um die Ohren geschlagen.

Beste Grüße

OldHolborn

Wer Rechtschreibfehler findet, darf sie verzocken...

Link zu diesem Kommentar
Auf anderen Seiten teilen

@OldHolborn

Ich bin fast nur sonntags in Netz, da dauert es mit der Antwort, ab und an ein paar Tage.

Danke für deine Rückmeldung.

Ich fasse deine Bemerkungen nicht als meckern auf.

Jedes Programm das man frei gibt, muss ordentlich laufen. Macht es das nicht, muss gemeckert werden!

Ich verwende Office XP für meine Programme. Im Code ist nichts enthalten was frühere Excelversionen nicht deuten können.

Es werden keine Variablen deklariert um Fehlerquellen zu vermeiden.

Wie du sicher gesehen hast, gab es verschiedene Varianten dieses Tools.

Immer gab es irgendwelche Macken im Code. Gründe dafür habe ich bis heute nicht gefunden.

Zum Schluss bin ich soweit gegangen, dass der Originalcode des Makrorecorders verwendet wurde.

Die „100“ im Code ist ein Platzhalter um die Länge der Permanenz zu bestimmen. Später wird mit dem Filter auf diesen Bereich zugegriffen.

Die „100“ soll dann vom Programm wieder entfernt werden.

Der Programmcode dafür(mit Makrorecorder):

Sub Die_Hundert_löschen()

' Die_Hundert_löschen Makro

Columns("B:AF").Select

Range("AF1").Activate

Selection.Replace What:="100", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

Üblicherweise sollte:

Columns("B:AF").Select

Selection.Replace What:="100", Replacement:=""

als Code ausreichen.

Der restliche Code ist eigentlich überflüssig.

Warum bei Excel 2000 eine Fehlermeldung erscheint ist mir schleierhaft.

Ach ja, ich habe den Gesamtcode, für alle meine Programme, freigegeben. Jeder darf ihn verändern, verbessern und weitergeben.

Wenn eine Verbesserung gefunden wird, nach Möglichkeit einstellen!

Tauchen Fehler auf: Unbedingt Meckern! :sauf::schock::schuettel:

Beste Grüße

Wenke

der nur sonntags schreibt :crazy:

Link zu diesem Kommentar
Auf anderen Seiten teilen

  • 2 weeks later...
  • 1 month later...
  • 11 months later...

Hallo!

Nach längerer Pause bin ich wieder mal am tüfteln und somit auch auf der Suche nach original Permanentzen.

Die was ich gefunden habe, habe ich für meine Tests folgendermaßen aufbereitet.

in der Spalta A (Excel) stehen die Zahlen fortlaufend ohne Datumsangebe, Handwechsel oder sonst was. Einfach nur die Zahlen (10000 oder mehr)

Hab auf diese weise ca. 250 000 original Coups gefunden und Aufbereitet.

Hamburg 1. Quartal 1999 Tisch 1

Hamburg 2. Quartal 1999 Tisch 1

Hamburg 3. Quartal 1999 Tisch 1

Hamburg 4. Quartal 1999 Tisch 1

Hamburg Oktober 2003 Tisch 1

Hamburg November 2003 Tisch 1

Dortmund 1. Halbjahr 1998 Tisch 4

Dortmund 1. Halbjahr 1998 Tisch 5

Dortmund 1. Halbjahr 1998 Tisch 6

Lindau Jänner 1978 Tisch 5

Bei interesse kann ich diese auch gerne per mail Versenden (0,5 - 1,2 MB pro Datei)

Wer hat noch andere außer der genannten Permanentzen im Excel Format ohne Handwechsel und dem Datum dazwischen?

viele grüße

Joe

Link zu diesem Kommentar
Auf anderen Seiten teilen

  • 1 year later...

Hallo Wenke,

Leider ist Dein Progi nicht mehr vorhanden. Bzw. der link funzt net.

Kannst Du Dein Tool nochmals posten.

Danke & Frohes Fest

Freewind

Benutze bitte den Download aus meinen Posting vom May 16 2004, 01:03.

Der Downlod ist mit dem vom 02. Mai identisch, er wurde an diesem Tag nochmal überarbeitet. Er ist immer noch auf dem Server.

Link zu diesem Kommentar
Auf anderen Seiten teilen

  • 2 months later...

Hallo BIGmic,

Ein Recovery Programm reformatiert die Festplatte und reinstalliert das Betriebssystem. Dadurch gehen alle eigenen Dateien verloren. Das Tool msconfig kann auf den PC den Zustand von einem bestimmten Zeitpunkt aus der Vergangenheit wiederherstellen. Nur die Daten zwischen diesem Zeitpunkt und dem Zeitpunkt der Wiederherstellung gehen verloren.

Um das zu verhindern kann man die Daten auf eine externe Festplatte kopieren.

Ein Link zu Permanenzen:

www.spielbank-hamburg.de/spielsaal/permanenzen.php4

Grüsse Valentinus

Link zu diesem Kommentar
Auf anderen Seiten teilen

  • 4 weeks later...

Moin @Valentinus

Paroli hat geschrieben:

Das glaube ich kaum. Die Casinogruppe weist ausdrücklich darauf hin,

dass die Permanenzen nicht so ohne weiteres weiter gegeben werden dürfen.

Permanenzen, die ich reingestellt habe, habe ich deshalb sortiert angeboten. Dies

dürfte - denke ich - zulässig sein.

diese hier als Download zur Verfügung

Es gibt Dateigrößen-Begrenzungen, deshalb lassen sich größere Permanenz-

sammlungen nicht am Stück hochladen.

Grüße, Monopolis.

Link zu diesem Kommentar
Auf anderen Seiten teilen

Schlechte Zeiten für Roulette Statistiker:

Verlag Telatzky (Casino-Journal) sperrt einfach zu und sagt nicht 'Muhh' oder 'Mäh' buw. kaum ein Abonennt wird verständigt.

Spielbank Hamburg tauscht einfach die Homepage aus (wegen neuen Casinos) und läßt die Abteilung "Spielsaal" mit den echten Online-Permanenzen vieler Jahre und vieler Tische "unter den Tisch fallen".

Auch keine Art den Spielern gegenüber.

Link zu diesem Kommentar
Auf anderen Seiten teilen

Wie ist deine Meinung dazu?

Du kannst jetzt schreiben und dich später registrieren. Bereits registrierter Teilnehmer? Dann melde dich jetzt an, um einen Kommentar zu schreiben.
Hinweis: Dein Beitrag wird nicht sofort sichtbar sein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Neu erstellen...