Fehler bei Bedingungsabfrage in Schleife

Sub MitarbEintragen()
Dim laR1 As Long, laR2 As Long, i As Long
'>>>>zur Probe so festgelegt
' AnfMonat = DateSerial(Year(Date), 6, 1)
'ActiveSheet.Name = Format(AnfMonat, "mmm.yyyy")
'Sheets(Worksheets.Count - 1).Activate
'>>>Mitarbeiterdaten übeberprüfen und eintragen
laR1 = Sheets("Mitarbeiter").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To laR1
'1.Abfrage
If Format(Sheets("Mitarbeiter").Cells(i, 5).Value, "mmm.yyyy") >= ActiveSheet.Name _
Then laR2 = Cells(Rows.Count, 2).End(xlUp).Row
'2.Abfrage
If Format(Sheets("Mitarbeiter").Cells(i, 5).Value, "mmm.yyyy") <= ActiveSheet.Name _
Then laR2 = Cells(Rows.Count, 2).End(xlUp).Row
If laR2 < 7 Then laR2 = 7
Cells(laR2 + 1, 2).Value = _
Sheets("Mitarbeiter").Cells(i, 2).Value
Cells(laR2 + 1, 1).Value = _
Left(Sheets("Mitarbeiter").Cells(i, 1).Value, 3)
Next i
End Sub