Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
Dim i As Long, j As Long
Dim Name As String
Dim Week As Integer
Dim FirstDate As Date
Dim Found As Boolean
Select Case Target.Column
Case 1
If Target.Value <> "" Then
Target.Offset(0, 2).Value = Now
Target.Offset(0, 3).Value = Now
Else
Target.Offset(0, 2).Value = ""
Target.Offset(0, 3).Value = ""
End If
Case 5
LastRow = Cells(Rows.Count, "E").End(xlUp).Row
For i = Target.Row To LastRow
Name = Cells(i, "E").Value
FirstDate = Cells(i, "C").Value
Week = Format(FirstDate, "ww")
Found = False
For j = 10 To i - 1
If Cells(j, "E").Value = Name And Format(Cells(j, "C").Value, "ww") = Week Then
Found = True
Exit For
End If
Next j
If Not Found Then
Cells(i, "J").Value = "nötig "
End If
Next i
Case 12
Cells(Target.Row, "M") = Now
End Select
End Sub