Private Sub Worksheet_Change(ByVal Target As Range)
Range("B" & Target.Row) = Date + Time
If Target.Column = 11 And LCase(Target.Cells(1).Value) = "ja" Then
If Application.CountA(Range("A" & Target.Row, "J" & Target.Row)) = 10 Then
Range("A" & Target.Row, "F" & Target.Row).Copy
Range("A" & Target.Row, "F" & Target.Row).Offset(1, 0).PasteSpecial xlPasteAll
Range("J" & Target.Row).Copy
Range("J" & Target.Row).Offset(1, 0).PasteSpecial xlPasteAll
Range("A" & Target.Row + 1) = Range("A" & Target.Row) + 1
Application.CutCopyMode = False
Else
MsgBox "Es wurden noch nicht alle Felder ausgefüllt. Ja kann nicht gesetzt werden!", vbExclamation
Target.Cells(1) = ""
End If
End If
End Sub