Hallo und einen schönen guten Morgen,
kann mir nochmals jemand helfen bei meiner Dart Tabelle?
Es sind zwei Bedingungen in VBA die verändert werden müssten, da ich das nicht kann, richtet sich die Frage an ein bestimmtes Mitglied des Forums. Diese Person hat eine tolle Leistung erbracht und ist mit dieser Tabelle vertraut.
Es ist folgendes: Möchte dass wenn kein Doppel out möglich ist die Punktzahl wieder den alten Wert anzeigt.
Habe aus einer alten Dart Tabelle folgenden Code eingefügt:
'wenn Überworfen,
If Cells(6, lngSpalte) - lngWurf < 0 Then
'dann Wurfergebnis auf Null setzen
lngWurf = 0
'Marker für überworfen setzen
bUeberw = True
'Falls nur 1 übrigbleibt 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
End If
Und wenn ich mich im 6 Wurf überwerfe ertönt dann die Ansage no Score
Und die Punktzahl wird zurück gesetzt: ist OK.
Aber überwerfe ich mit dem 7. Wurf, muss ich 3 mall eine Punktzahl klicken bis die Ansage ertönt sollte eigentlich gleich nach dem überwerfen geschehen.
Wünsche mir von Herzen, dass mich die Person hier nochmals unterstützen kann.
Das ist die Tabelle
https://filehorst.de/d/djabsfaf
Gruß Adde