Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 11 Then
If Target.Row >= 8 And Target.Row <= 50 Then
If Target.Count > 1 Then
MsgBox "Keine Mehrfachauswahl."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
If Not Target Is Nothing Then
If Target.Value = 1 Then
Target.Offset(, 1) = Date
Target.Offset(, 2) = Time
Range(Cells(Target.Row, Target.Column), Cells(Target.Row _
, Target.Column + 2)).Locked = True
End If
End If
End If
End If
End Sub