Eingabe bei -Summe beschränken

[neopa]

Hallo Edgar,

... und noch immer ist kein {SUMMENPRODUKT()} notwendig.

Und wenn Leerzellen abgefangen werden sollen, reicht einfach:

{=SUMME(WENN(ISTZAHL(B4:F4+0);B4:F4;VERWEIS(B4:F4;{"Aa";"k";"s";"x"};{4;8;3;0})))}

oder eben (nur länger):
=SUMMENPRODUKT(--WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(0&B4:F4;"";0);"s";3);"Aa";4);"k";8);"x";0))

[WergibtmirRat]

Hallo G'meinde
das Thema ist noch nicht vollendet. Eure Formeln sind gut zum anwenden bzw. sind teils eingebaut. Habe nach wie vor das Problem in der Rückrunde der Zellensperrung.
Siehe Datei, zur weiteren Erklärung
  Hoch-Tief die 2te.xlsm (Größe: 26,6 KB / Downloads: 6)
Hier geht es mir nur um den Zellenblock H4:L13, wenn in Spalte M (gleiche Ebene) das Ergebnis kleiner gleich Null ist, sollen die verbleibenden Zellen nicht mehr zum Eintragen frei sein. Wie können diese Zellen gesperrt werden??? Betrachte Zeile 6 J - K, dort sollen die Zellen nicht mehr beschreibbar sein.

Danke vorab, den Helfenden

[Steffl]

Hallo Frank,

mal ein erster Ansatz

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H4:L13")) Is Nothing Then
        If Cells(Target.Row, 13) < 0 Then
            Application.EnableEvents = False
            Application.Undo: MsgBox "Negativer Wert in Spalte M!", vbInformation
            Application.EnableEvents = True
        End If
    End If
End Sub

[WillWissen]

Hi Frank,

Text gelöscht - Problem durch Stefan gelöst.

[WergibtmirRat]

ein erster Ansatz

Super, nur, da hab ich was vergessen zu erwähnen. Der letzte Wurf der zu einer Negation führt müsste geduldet werden, da hier durch ja erst der Werfende verloren hat. Zur Auswertung gefallener Holz müsste der letzte Wurf mit addiert werden können Zellenblock X4-AL13.
Ist das so umzusetzen??

Danke der schnellen Hilfe

[Steffl]

Hallo Frank,

Der letzte Wurf der zu einer Negation führt müsste geduldet werden, da hier durch ja erst der Werfende verloren hat. Zur Auswertung gefallener Holz müsste der letzte Wurf mit addiert werden können Zellenblock X4-AL13.
Ist das so umzusetzen??

Könntest Du das so erklären, dass es ein Nichtkegler auch verstehen kann? Verstehe derzeit nur Bahnhof.

[WergibtmirRat]

Text gelöscht -

Irgendwie hab ich jetzt ein Versteh/Verständnisproblem ... :16:

[WillWissen]

Hallo Frank,

Irgendwie hab ich jetzt ein Versteh/Verständnisproblem ...

ich hatte zu deiner Frage einen Beitrag geschrieben, der sich im Nachhinein als unrichtig rausgestellt hat. Noch während ich schrieb, hat Stefan dir eine Lösung geschickt. Deshalb habe ich meinen Beitrag bearbeitet und den unrichtigen Text gelöscht.

[WergibtmirRat]

so erklären, dass es ein Nichtkegler auch verstehen kann

Solang da ein Positiv steht kann der Kegler kegeln. In dem Moment wo er/sie nach vorne geht einen höheren Treffer als verbleibende Punkte hat, ist der Wert ja ins Minus gerutscht. Weil aber der Wurf getätigt wurde hat der Kegler ja noch Holzpunkte erworben, egal ob Tot oder im Plusbereich. Wenn es hier Voicechatmöglichkeiten gäb wäre es vlt. besser zu verstehen... .
5 x Hoch 22 Punkte - 5 x Tief mit 4 Wurf ( a 7 Holz ) 28 Punkte

Hoffe es gut erklärt zu haben.

Komm doch mit ... , wirst's seh'n, jeder kann kegeln

[Steffl]

Hallo Frank,

versuch es mal hiermit

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Static boNegativ(4 To 13) As Boolean
    If Not Intersect(Target, Range("H4:L13")) Is Nothing Then
        If Cells(Target.Row, 13) < 0 And boNegativ(Target.Row) Then
            Application.EnableEvents = False
            Application.Undo: MsgBox "Negativer Wert in Spalte M!", vbInformation
            Application.EnableEvents = True
        ElseIf Cells(Target.Row, 13) < 0 And Not boNegativ(Target.Row) Then
            boNegativ(Target.Row) = True
        Else
            boNegativ(Target.Row) = False
        End If
    End If
End Sub

Nachtrag: Code ergänzt, da in bestimmten Fällen eine Eingabe nicht mehr möglich war.