Private Sub Worksheet_Change(ByVal Target As Range)
Dim intSuche As Integer
Dim c As Range
intSuche = Range("N1").Value
If Not Intersect(Target, Range("N1")) Is Nothing Then
If IsNumeric(Range("N1")) And Range("N1").Value <> "" Then
Set c = Columns(1).Find(intSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Range(Cells(c.Row, 2), Cells(c.Row, 5)).ClearContents
Else
MsgBox "nüscht gefunden"
End If
End If
End If
End Sub