Clever-Excel-Forum

Seiten: 1 2

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... Huh

Danke aber schon einmal...
tobi

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

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

Seiten: 1 2

redSniper

Case

redSniper