With Worksheets("Schüler") Worksheets("Anwesenheitsliste").Range("A7").Value = .Range("D2").Value & " " & .Range("E2").Value End Wit