Hallo,
wer kann mich hierbei unterstützen?
Habe von einem Team - Mitglied dieses VBA erstellt bekommen, das wenn gewisse Punktzahl erreicht sind zB. 301 oder 501 ertönt die Ansage Game Over. Siehe unten. Für dieses Spiel alles super.
Da ich das Dart Spiel 301 / 501 mit Cricket kombiniert habe, soll die Ansage Game over
ertönen wenn die Anzahl der Würfe gleich 36 ist, steht in der Zelle wo vorher die Punktzahl stand. Wenn die 16 darin steht ich aber eine 60 werfe passiert nichts, da ich mich überworfen habe.
Nun meien Anfrage:
Muss ich nur in diesem unten aufgeführtem Teil etwas verändern oder in dem ganzen VBA?
'hier für die Ansage
'prüfen ob Anzahl der Würfe ohne Rest durch 3 Teilbar ist oder Checkout vorliegt
If Cells(lngSZeile, lngWSpalte).Value Mod 3 = 0 And Cells(1, lngSpalte).Value <> "Checkout" Then
lngAnsage = Cells(lngWZeile, lngSpalte + Cells(lngSZeile, lngWSpalte).Value - 1) + Cells(lngWZeile, lngSpalte + Cells(lngSZeile, lngWSpalte).Value - 2) + Cells(lngWZeile, lngSpalte + Cells(lngSZeile, lngWSpalte).Value - 3)
Start_Ansage (lngAnsage)
End If
'Checkout; 999 = Game over
If Cells(1, lngSpalte).Value = "Checkout" Then Start_Ansage (999)
End Sub
Es wäre sehr nett wenn mir da jemand helfen könnte.
Lieben Gruß
Adde