Ich wäre sehr dankbar!!!
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:=""
Dim iRow As Integer
Application.DisplayAlerts = False
If Target.Column 17 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) >= 1 Then
With Worksheets("Order-History")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
ActiveWorkbook.Sheets("Comparison").Select
ActiveSheet.Unprotect Password:=""
ActiveSheet.Rows(Target.Row + 4).Delete
End With
End If
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub
Vielen Dank!