Alle 9 Zellen nur ein "x" erlaubt

[redSniper]

Hallo Case,

vielen Dank für die Anpassung des Codes.

Fast perfekt...das mit den Spalten haut schon einmal hin.
Nur der gewünschte Bereich (11:19, 20:28 usw.) stimmt noch nicht.

Wenn bei F11 etwa ein x steht erscheint bei erneuter Eingabe bis F18 eine Fehlermeldung...also wie es sein sollte.
Aber bei F19 kann ich schon wieder ein x machen...und das sollte ja nicht möglich sein, erst beim nächsten Spieltag wieder...also ab F20.

Irgendwas muss im Code noch geändert werden...

Danke aber schon einmal...
tobi

[Case]

Hallo,  

ja - schlampig von mir getestet.  

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim a&, e&
    On Error GoTo Fin
    Select Case Target.Column Mod 5
        Case 1
            Application.EnableEvents = False
            a = Int((Target.Row - 0.5) / 9) * 9 + 2
            If a > Target.Row Then a = a - 9
            e = a + 8
            If Application.WorksheetFunction.CountIf(Range(Cells(a, Target.Column), Cells(e, Target.Column)), "x") > 1 Then
                Target.ClearContents
                MsgBox "Ein Glas zuviel..."
            End If
    End Select
Fin:
    Application.EnableEvents = True
End Sub

[redSniper]

Ich glaub' das war's 


Den ersten Schnelltest durchgeführt...alles wie es soll.

Werde das jetzt bei der Echteingabe von Tipps beobachten...aber das sollte jetzt alles passen.


Vielen Dank Dir für die schnelle und freundliche Unterstützung.

Und natürlich auch allen anderen die sich hier meinem Problem gewidmet haben.

Euch allen ein schönes Wochenende.
tobi