Public Sub aaa()
Dim wksQ As Worksheet, wksZ As Worksheet, i As Long
Set wksQ = Worksheets("ListeEinfahrgenehmigung")
Set wksZ = Worksheets("FormularPersonengebunden")
Application.ScreenUpdating = False
For i = 4 To wksQ.Cells(wksQ.Rows.Count, "B").End(xlUp).Row
wksQ.Cells(i, "A").Copy wksZ.Range("C3:D3")
wksQ.Cells(i, "B").Copy wksZ.Range("B7:D8")
wksQ.Cells(i, "E").Copy wksZ.Range("B10:B12")
wksZ.PrintPreview
Next i
wksZ.Range("C3:D3,B7:D8,B10:B12").ClearContents
Set wksQ = Nothing: Set wksZ = Nothing
End Sub