Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim rngFnd As Range
Dim iRow As Integer
Dim sName As String, sStatus As String
Set rng = Target.Worksheet.Range("A1:B1")
If Not Intersect(Target, rng) Is Nothing Then
sName = rng.Cells(1, 1)
sStatus = rng.Cells(1, 2)
With Tabelle2.Columns(1)
Set rngFnd = .Find(what:=sName)
Do Until rngFnd Is Nothing
If rngFnd.Row > iRow Then
iRow = rngFnd.Row
rngFnd.Offset(ColumnOffset:=1).Value = sStatus
Set rngFnd = .FindNext(rngFnd)
Else
Set rngFnd = Nothing
End If
Loop
End With
End If
End Sub