Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Dim wsScan As Worksheet, wsData As Worksheet
Dim searchValue As String, searchRange As Range
Dim foundCell As Range
Set wsScan = ThisWorkbook.Sheets("Scannen")
Set wsData = ThisWorkbook.Sheets("Tabelle1")
searchValue = wsScan.Range("A1").Value
Set searchRange = wsData.Range("T:T")
Set foundCell = searchRange.Find(searchValue, LookIn:=xlValues)
If Not foundCell Is Nothing Then
Application.EnableEvents = False
foundCell.Offset(0, 1).Value = Date
wsScan.Range("A1").Clear
wsScan.Range("A1").Activate
Application.EnableEvents = True
End If
End If
End Sub