Sub Kopieren()
Dim M As Long, intRowM As Long
Dim Wert As String, T As Long, intRowT As Long
With Worksheets("MockUp")
intRowM = .Cells(.Rows.Count, 11).End(xlUp).Row
For M = intRowM To 1 Step -1
If UCase(.Cells(M, 11)) = "JA" Then
Wert = .Cells(M, 8).Value
With Worksheets("ToDo")
intRowT = .Cells(.Rows.Count, 5).End(xlUp).Row
For T = intRowT To 1 Step -1
If IsEmpty(.Cells(T, 5)) Then
.Cells(T, 5) = Wert
Exit For
End If
Next T
End With
End If
Next M
End With
End Sub