356 Aufrufe
Gefragt in Tabellenkalkulation von addeguddi Experte (2.7k Punkte)
Hallo und einen schönen letzten Freitag im altem Jahr.

Es geht wieder einmal um Dart.

Folgendes Problem habe ich. Wenn ich im Dart mit Doppel in, eröffne, erscheint in der Zelle Spalte 674 ein ja so wie es sein soll, bis hierhin alles gut. Nun das was ich möchte ist dass dies auch stehen bleibt(ja) aber beim nächsten Wurf wird aus ja ein nein hier sollte das ja aber stehen bleiben.

Kann mir da jemand bitte helfen.

Das ist der Befehl in VBA:

'Checkout; 999 = Game over
If Cells(1, lngSpalte).Value = "Checkout" Then Start_Ansage (999)

If Not Intersect(Target, Range("B2:B11,E2:E12,C12")) Is Nothing Then
        'Doppel
        Cells(1 + Range("J1").Value, 674) = "ja"
 Else
        'kein Doppel
        Cells(1 + Range("j1").Value, 674) = "nein"
End If

'Checkout; 999 = Game over
If Range("c279").Value = 0 Then Start_Ansage (999)

ActiveSheet.Protect
End Sub

Liebe Grüße in der Hoffnung, das mich hierbei jemand unterstützen kann.

Adde

8 Antworten

+1 Punkt
Beantwortet von m-o Profi (22.9k Punkte)

Hallo Adde,

zuerst möchte ich dir - und natürlich auch allen anderen - ein gutes neues Jahr wünschen.

Wenn du willst, dass "Ja" stehen bleibt, dann ändere den folgenden Teil:

If Not Intersect(Target, Range("B2:B11,E2:E12,C12")) Is Nothing Then
        'Doppel
        Cells(1 + Range("J1").Value, 674) = "ja"
 Else
        'kein Doppel
        Cells(1 + Range("j1").Value, 674) = "nein"
End If

so ab:

If Not Intersect(Target, Range("B2:B11,E2:E12,C12")) Is Nothing Then Cells(1 + Range("J1").Value, 674) = "ja"  'Doppel

Viele Grüße

M.O.

0 Punkte
Beantwortet von addeguddi Experte (2.7k Punkte)

Hallo M.O.

vielen lieben Dank für deine Unterstützung. Dies funktioniert, das Ja bleibt stehen. Doch es ist nicht das was ich eigentlich wollte. habe mich wieder mal falsch ausgedrückt. Das Ja soll nur im 1ten Wurf erscheinen und stehen bleiben. Sollte im 1ten Wurf eine andere Zahl als die die von den vorgegebenen Zellen getroffen werden soll das nein erscheinen und auch stehen bleiben. wenn dann in J1 2,3, usw muss das wieder neu sein. Ich bin schon wieder am probieren wie ich das hin bekomme.

Habe etwas ausprobiert: =wenn(k19=2;wenn(N19=2 usw. das bis der Zahl 50. ich zeige dir einmal eine Formel nur für die Zahl 2. 

=WENN($J$1=1;$K$19=2;WENN($J$1=2;$N$19=2;WENN($J$1=3;$Q$19=2;WENN($J$1=4;$T$19=2;WENN($J$1=5;$W$19=2;WENN($J$1=6;$Z$19=2;WENN($J$1=7;$AC$19=2;WENN($J$1=8;$AF$19=2;WENN($J$1=9;$AI$19=2;WENN($J$1=10;$AL$19=2;WENN($J$1=11;$AO$19=2;WENN($J$1=12;$AR$19=2;WENN($J$1=13;$AU$19=2;WENN($J$1=14;$AX$19=2;WENN($J$1=15;$BA$19=2;WENN($J$1=16;$BD$19=2;WENN($J$1=17;$BG$19=2;WENN($J$1=18;$BJ$19=2;WENN($J$1=19;$BM$19=2;WENN($J$1=20;$BP$19=2;WENN($J$1=21;$BS$9=2;WENN($J$1=22;$BV$19=2;WENN($J$1=23;$AB$19=2;WENN($J$1=24;$CB$19=2;WENN($J$1=25;$CE$19=2;WENN($J$1=26;$CH$19=2;WENN($J$1=27;$CK$19=2;WENN($J$1=28;$CN$19=2;WENN($J$1=29;$CQ$19=2;WENN($J$1=30;$CT$19=2;WENN($J$1=31;$CW$19=2;WENN($J$1=32;$CZ$19=2;WENN($J$1=33;$DC$19=2;WENN($J$1=34;$DF$19=2;WENN($J$1=35;$DI$19=2;WENN($J$1=36;$DL$19=2;WENN($J$1=37;$DO$19=2;WENN($J$1=38;$DR$19=2;WENN($J$1=39;$DU$19=2;WENN($J$1=40;$DX$19=2;WENN($J$1=41;$EA$19=2;WENN($J$1=42;$ED$19=2;WENN($J$1=43;$EG$19=2;WENN($J$1=44;$EJ$9=2;WENN($J$1=45;$EM$19=2;WENN($J$1=46;$EP$19=2;WENN($J$1=47;$ES$19=2;WENN($J$1=48;$EV$19=2))))))))))))))))))))))))))))))))))))))))))))))))

Soll Zahl von K bis EV Ist RE 380 WAHR FALSCH Identisch
2 FALSCH nein FALSCH WAHR
4 FALSCH nein FALSCH
6 FALSCH nein FALSCH

Wenn wahr erscheint, wird ja angezeigt und wenn Falsch dann nein dies habe ich bis zur Zahl 50 gemacht.

Na ja egal.

Trotzdem nochmals vielen lieben dank.

Wollte eigentlich keine Frage bezüglich Dart mehr stellen. Dachte nur vielleicht hat jemand eine Lösung.

Gruß Adde

0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo Adde,

auch das sollte kein Problem sein. Du müsstest mir nur noch einmal deine Tabelle zur Verfügung stellen.

Gruß

M.O.
0 Punkte
Beantwortet von addeguddi Experte (2.7k Punkte)
Bearbeitet von addeguddi
Guten Morgen M.O.

Danke für deine Antwort. Habe Datei hochgeladen.
https://filehorst.de/d/eupmurCt

Gruß Adde
+1 Punkt
Beantwortet von m-o Profi (22.9k Punkte)

Hallo Adde,

schau mal, ob der wie folgt geänderte Code so funktioniert, wie du willst:

If Cells(lngSZeile, lngWSpalte) = 1 Then
   If Not Intersect(Target, Range("B2:B11,E2:E12,C12")) Is Nothing Then
        'Doppel
        Cells(1 + Range("J1").Value, 674) = "ja"
    Else
        'kein Doppel
        Cells(1 + Range("j1").Value, 674) = "nein"
   End If
End If

Gruß

M.O.

0 Punkte
Beantwortet von addeguddi Experte (2.7k Punkte)
Hallo M.O.

Nochmals vielen lieben Dank für deine Mühe die du hier entwickelst.

Habe es getestet und festgestellt, dass es Funktioniert aber leider nur bis Wurf 3, Ab 4ten Wurf wird aus Ja ein nein.

Solltest du dafür auch eine Lösung haben, wäre es sehr schön, wenn nicht kann man es leider nicht ändern.

Gruß Adde
+1 Punkt
Beantwortet von m-o Profi (22.9k Punkte)

Hallo Adde,

ändere den Codeteil wie folgt:

'Anzahl der Gesamtwürfe ab Spalte VE (=577) abhängig vom Spieler prüfen
If Cells(3, 576 + lngSpieler).Value = 1 Then
   If Not Intersect(Target, Range("B2:B11,E2:E12,C12")) Is Nothing Then
        'Doppel
        Cells(1 + Range("J1").Value, 674) = "ja"
    Else
        'kein Doppel
        Cells(1 + Range("j1").Value, 674) = "nein"
   End If
End If

Teste mal, ob das jetzt so funktioniert, wie du willst.

Gruß

M.O.

0 Punkte
Beantwortet von addeguddi Experte (2.7k Punkte)
Guten morgen M.O.

habe es getestet, und jetzt passt es. Super Leistung von dir.

Danke, danke

Gruß Adde
...