Frage stellen

Einträge bei Dart der erzielten Punkte wird nur bis Wurf 24 eingetragen

83 Aufrufe
Gefragt in Tabellenkalkulation von addeguddi Experte (2.6k Punkte)
Bearbeitet von addeguddi

 Hallo und guten Morgen an das Forum und alle Dartfreunde

habe eine Verständnisfrage zu meiner Dartliste. diese funktioniert einwandfrei bis auf die Einträge der erzielten Punkte. Die Einträge hören ab Wurf 24 auf. Vielleicht kann jemand von den Spezialisten in dem VBA einmal nachschauen ob da etwas falsch ist.

https://filehorst.de/d/eEDFGqiB

Gruß Adde

Zur Info: Also folgendes Nach jedem Wurf  wird die Zahl für Spieler 1: der 1te Wurf in die Zelle K19 Der 2te Wurf in Zelle L19 der 3te Wurf in Zelle M19 danach in Zelle K20 L20 M20 usw. übernommen. Ab Zelle K26 erfolgen keine Einträge, Würfe werden gezählt und die Punkte nicht.

1 Antwort

0 Punkte
Beantwortet von addeguddi Experte (2.6k Punkte)

Hallo 

habe eine Lösung erstellt.

Habe folgendes in VBA geändert und in den Zellen die Formel dazu verändert.

Das ist das was ich geändert habe:

ALTE EINGABE
'Zeile für Eintrag der Würfe suchen
lngWZeile = 19 + WorksheetFunction.RoundDown(Cells(lngSZeile, 8).Value / 3, 0)
'Spalte für den Eintrag der Würfe ermitteln
lngWSpalte = WorksheetFunction.RoundDown(Cells(lngSZeile, 25).Value / 3, 0) + 2
NEUE EINGABE
'Zeile für Eintrag der Würfe suchen
lngWZeile = 19 + WorksheetFunction.RoundDown(Cells(lngSZeile, 25).Value / 3, 0)
'Spalte für den Eintrag der Würfe ermitteln
lngWSpalte = WorksheetFunction.RoundDown(Cells(lngSZeile, 25).Value / 3, 0) + 2
Nun funktioniert das was ich wollte.
Gruß Adde
...