ich finde den Fehler nicht (unabhängig der verwendeten Zellen, Werte):
If (Year(.Cells(i, 3).Value) = Year(Date) And Month(.Cells(i, 3).Value) 0 Then
Hier soll nachfolgender Code ausgeführt werden, wennZeile 1 oder 2 zutrifft und zusätzlich Zeile 3 und 4 des Codes...
VG