Hallo M.O.
nochmals ich. Rückfrage wegen Doppel Out.
Beim Überwerfen setzt er wie es sein soll die letzte Punktzahl ein die vorher war. OK
Nun wollte ich wenn kein Doppel Out möglich ist aus der alten Liste den Code einfügen, doch das geht nicht.
'Falls nur 1 übrigbleibt und damit kein Doppel-Out möglich ist, die Würfe auf Null setzen
If Cells(6, lngSpalte) - lngWurf = 0 Then lngWurf = 0
Wollte damit erreichen, dass wenn nicht möglich, auch auf die vorhergehende Punktzahl stehen bleibt wie beim überwerfen.
Vielleicht kannst du, wenn du so nett bist, mir hierfür auch eine Lösung zukommen lassen.
Gruß Adde