Befehl in VBA Sagt aus das in einer bestimmter Zelle ein ja erscheint aber nach dem 2ten Wurf ein nein

Question

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

Answer 1

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.

Answer 2

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

Answer 3

Hallo Adde,

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

Gruß

M.O.

Answer 4

Guten Morgen M.O.

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

Gruß Adde

Answer 5

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.

Answer 6

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

Answer 7

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.

Answer 8

Guten morgen M.O.

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

Danke, danke

Gruß Adde