Frage stellen

Fester Bezug für Zelle mit mehreren Ist-Wenn-Formel

362 Aufrufe
Gefragt in Tabellenkalkulation von addeguddi Experte (2.6k Punkte)
Hallo und einen schönen guten Tag an das Team vom Forum,

ich hätte da einmal Frage.

Ob das überhaupt möglich ist.

Habe als Beispiel eine Formel die so aussieht:

=WENN(UND(AO19=20;$J$1=11);"X";WENN(UND(AI19=20;$J$1=9);"X";WENN(UND(AC19=20;$J$1=7);"X";WENN(UND(W19=20;$J$1=5);"X";WENN(UND(Q19=20;$J$1=3);"X";WENN(UND(K19=20;$J$1=1);"X";20))))))

möchte jetzt, dass AO19, AI19 AC19,AC19;W19;Q19 und K19 einen festen Bezug erhalten ohne, dass ich jede Befehl anklicken muss. Da ich das für Ca 600 Zellen mal 6 anklicken müsste.

Für einen Tipp wäre ich sehr dankbar

Gruß Adde

14 Antworten

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

wie gestern geschrieben habe ich heute alles getestet. Datei Zuordnung ist OK aber leider sagt das Programm ab Wurf  4, Spieler 1 no score und ab Spieler 2 wiederholt er die Punktzahl vom vorherigem Wurf. Eintragungen sind in Ordnung.so kann ich leider das Spiel nicht beendet werden.

Wenn du Lust und zeit dazu hast kannst du das noch einmal prüfen.

Gruß Adde
0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo Adde,

ich schaue mir das mal an.

Zu dem No-Score: Gibt es für das Spiel Fuchsjagd bestimmte Regeln?

Gruß

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

ja, wenn die Punktzahl 210 erreicht i,. habe eben festgestellt, dass eine Zuordnung fehlt. Ich ändere das und wenn es funktioniert, melde ich mich nochmals. Brauchst im Moment nichts zu machen.

Gruß Adde
0 Punkte
Beantwortet von addeguddi Experte (2.6k Punkte)
Hallo M.O.
wie geschrieben meine Antwort. Habe folgendes gemacht.
Diesen Befehl habe ich gelöscht:
'hier für die Ansage und Anzeige
'prüfen, ob Überworfen
If bUeberw = True Then
  Start_Ansage (0)
Else
  'prüfen ob Anzahl der Würfe ohne Rest durch 3 Teilbar ist oder Checkout vorliegt
  If Cells(lngSZeile, lngWSpalte).Value Mod 3 = 0 And Cells(1, lngSpalte).Value <> "Checkout" Then
   'Anzeige
    Range("H6") = "Geworfen: " & Cells(arrRueck(3), arrRueck(4)).Value + Cells(arrRueck(3), arrRueck(4) - 2) + Cells(arrRueck(3), arrRueck(4) - 1) & vbLf & "Rest: " & Cells(6, arrRueck(4) - 2).Value
    lngAnsage = Cells(lngWZeile, lngSpalte + Cells(lngSZeile, lngWSpalte).Value - 1) + Cells(lngWZeile, lngSpalte + Cells(lngSZeile, lngWSpalte).Value - 2) + Cells(lngWZeile, lngSpalte + Cells(lngSZeile, lngWSpalte).Value - 3)
    Start_Ansage (lngAnsage)
    'Anzeige nach 5 Sekunden wieder löschen
    Application.Wait Now + TimeValue("00:00:3")
    Range("H6") = ""
  End If
End If
'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, 422) = "ja"
    Else
        'kein Doppel
        Cells(1 + Range("J1").Value, 422) = "nein"
End If
ActiveSheet.Protect
End Sub
Und dies mit diesem ersetzt:
'Ansage Wurfergebnis
Start_Ansage (lngWurf)
'Checkout; 9991 = Game over
If Range("ZP22").Value = 210 Then Start_Ansage (9991)
ActiveSheet.Protect
End Sub
Jetzt funktiniert es auch mit der Ansage.
Gruß Adde
Seite:
...