Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngAktZeile As Long
If Target.Column <> 6 Then Exit Sub
If UCase(Target) <> "ERLEDIGT" Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
With ThisWorkbook
lngAktZeile = Target.Row
Target.EntireRow.Columns("A:B").Copy .Sheets(2).Cells(lngAktZeile, 1)
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub