Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Long
If Not Intersect(Target, Range("G1:G1000")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = "erledigt" Then
B = Target.Row
Range(Cells(B, 1), Cells(B, 7)).Copy _
Destination:=Sheets("BGM_erledigt").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
Application.EnableEvents = True
End If
End Sub