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

Hallo und einen schönen guten Tag an die Experten vom Forum

Bezugnehmend auf meine vorherige Frage für mein Dartspiel das ich gerne erweitern möchte, mit einer Vorgabe mit maximal 51 Würfe, danach soll das Spiel durch einen Wurf in die Mitte der Dartscheibe der Gewinner ermittelt werden.

Meine vorherige Frage:

Anzahl Würfe bei Dart in einer Zelle in VBA addieren

Besteht die Möglichkeit mit einem VBA Befehl, das die Anzahl der Würfe in einer Zelle addiert werden ? ( In Zelle B19)

Habe ein VBA in dem die Würfe in Zeile 19 in Spalte 2 B19 bis 3 Würfe gezählt werden, dann die nächsten 3 Würfe in Zelle B19 Usw. Da leider die Spalte 10 Durch einen Befehl belegt ist wird dieser Eintrag leider nur bis Spalte 9 gezählt und das sind leider nur 24 Würfe aber ich brauche mindestens die Anzahl von 51 Würfe.

Meine Idee ist, das der Wert in in Zelle B19 von C übernommen wird USW. 

Beispiel:B19 = 3 plus C19 = 6 Usw. nur die Anzahl der Würfe dürfen nicht in den Nachbarzellen erscheinen sondern gleich addieren, ist das möglich.

Die Anzahl der Würfe und Punktzahl werden Durch einen Doppelklick in Zellen aA2 bis F12 erzeugt bis

Da die Würfe und die Punktzahl zusammen untereinander kommunizieren in VBA, kriege ich es nicht hin.

Habe die Einträge der Punktzahl auf Zeile 222 gelegt. Was passiert! Er Zählt die Würfe aber nicht mehr die Punkte und umgekehrt das Gleiche.

Daher Bitte ich um Hilfe bei den Fachleuten.

Bei Rückfragen, bitte einfach schreiben.

Wenn ich meine Liste einmal hochladen soll, bitte schreiben.

In der Hoffnung eine Lösung zu erhalten Danke ich schon einmal im voraus

Gruß Adde

1 Antwort

0 Punkte
Beantwortet von addeguddi Experte (2.6k Punkte)

Guten morgen,

bezüglich meiner Frage brauche ich hierfür keine Hilfe mehr.

Habe einiges im VBA probiert und eine Lösung gefunden.

Habe den Inhalt der Spalten K bis Y gelöscht damit die Würfe bis Y gezählt werden und die Punktzahl Ab Z eingetragen werden können.

Das wurde verändert: (rot Schrift)

'Spalte für Spieler ermitteln; Spieler stehen in Spalten K bis RB
lngSpalte = 8 + lngSpieler * 3
'Spalte für Spieler ermitteln; Spieler stehen in Spalten Z bis RB
lngSpalte = 23 + lngSpieler * 3
'Zeile für Eintrag der Würfe suchen
lngWZeile = 19 + WorksheetFunction.RoundDown(Cells(lngSZeile, 10).Value / 3, 0)
Next lngZeile
'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, 10).Value / 3, 0) + 2
'Spalte für den Eintrag der Würfe ermitteln
lngWSpalte = WorksheetFunction.RoundDown(Cells(lngSZeile, 25).Value / 3, 0) + 2

Nun muss ich noch alle Formel auf meine Bedürfnisse anpassen.

Gruß Adde
...