Hallo M.O.
Vielen lieben Dank dafür. Echt SUPER was du hier erstellt hast.
Absolut TOP,TOP, TOP.
Leider habe ich noch ein Anliegen:
Kann man das auch so einstellen, dass das auch ohne Dopple out gespielt werden kann. Da ich manchmal Spieler habe die kein Doppel out spielen können und normal auswerfen. ZB. 301 er ist auf 300 bei dieser Datei wird zurück gesetzt ist für mich OK, in dem anderen Fall soll er die Möglichkeit haben mit der 1 auswerfen zu können, geht das noch einmal separat einzustellen?
Wenn du mir da für noch eine Lösung vorschlagen könntest
Kann man diese Zeilen entfernen um das zu erreichen ich denke?
'wenn Überworfen, dann Wurfergebnis auf Null setzen
If Cells(6, lngSpalte) - lngWurf < 0 Then lngWurf = 0
'Falls nur 1 übrig leibt und damit kein Doppel-Out möglich ist, Wurf auf Null setzen
If Cells(6, lngSpalte) - lngWurf = 1 Then lngWurf = 0
'Fall kein Check-Out mit Doppel, dann Ergebnis des Wurfes auf Null setzen
If Cells(6, lngSpalte) - lngWurf = 0 And lngDT <> 2 Then lngWurf = 0
Wie kann ich mich ausser lich bei dir für deine tolle Leistung dafür Bedanken.
Vielen, vielen, vielen Dank
Gruß Adde