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