Leider verträgt sich der Code nicht mit meinem anderen bereits programmierten Code, der dafür sorgt, dass jeweils nur ein "x" in jeder Zeile möglich ist:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 50 Then Exit Sub
If Target.Column > 8 Then Exit Sub
If Target.Column = 4 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Target <> "x" Then Target = "x"
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
Target.Offset(0, 3) = ""
ElseIf Target.Column = 5 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Target <> "x" Then Target = "x"
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
Target.Offset(0, -1) = ""
ElseIf Target.Column = 6 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Target <> "x" Then Target = "x"
Target.Offset(0, 1) = ""
Target.Offset(0, -1) = ""
Target.Offset(0, -2) = ""
ElseIf Target.Column = 7 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Target <> "x" Then Target = "x"
Target.Offset(0, -1) = ""
Target.Offset(0, -2) = ""
Target.Offset(0, -3) = ""
ElseIf Target.Column = 8 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Target <> "x" Then Target = "x"
Target.Offset(0, -1) = ""
Target.Offset(0, -2) = ""
Target.Offset(0, -3) = ""
Target.Offset(0, -4) = ""
End If
Application.EnableEvents = True
End Sub
|