For ohne next

Sub TestConditions()
Dim GradeRecord_StudentRange As Range
'Students Sheet
Dim Students_FirstNameRange As Range
Dim Student As Range
Dim StudentFirstName As Range
Dim NoEhl As Double
Dim Lastsheet As Worksheet
Set GradeRecord_StudentRange = Sheet1.Range("C5:C39")
Set Students_FirstNameRange = Sheet5.Range("C2:C36")
'check if that student is somewhere in column C of the Students sheet
For Each Student In GradeRecord_StudentRange.Cells
'We are going to check if "student" is somewhere in Column C of sheets range
'We need to loop through each one, and check if the names corresponds.
For Each StudentFirstName In Students_FirstNameRange.Cells
If Student = Split(StudentFirstName, " ")(0) Then
'Dim noEhl as double
NoEhl = StudentFirstName.Offset(, -2)
End If
Next StudentFirstName
If NoEhl  "" Then
Set Lastsheet = Worksheets(Sheets.Count)
Sheet2.copy After:=Lastsheet
StudentFirstName = NoEhl
NoEhl = ""
End If
End Sub