VBA Jahreszahl als Standardformatierung auslesen

Hallo Experten
Ich habe in der Zelle "D2" (als Standard formatiert) eine Zahl (2015)
Im Bereich C16:M500 stehen Daten, formatiert als dd.mm.yyyy. In diesem Bereich sind manche Zellen mit Hintergrundfarbe gefüllt.
Nun möchte ich die Anzahl der farbigen Zellen zählen, aber nur dann wenn die Jahreszahl der Daten mit der Zelle ("D2") (als Standard definiert) übereinstimmen.
Mein nicht funktionierender Code:

Sub Mirjam_Abos()
Sheets("Abonnemente").Activate
anzahl = 0
For Each zelle In Range("C16:M500")
If zelle.Interior.Color = RGB(178, 161, 199) And zelle.Value = Range("D2") Then
anzahl1 = anzahl1 + 1
End If
Next zelle
Range("H5").Value = anzahl1
End Sub