Funktion mit Datumsbereich erweitern

Hallo,

ich habe eine Funktion definiert, die ich mit "=FarbsummeJ($J$10:$J350;40)" aufrufe.

' In Zelle=FarbsummeJ(J10:D350;40)
Function FarbsummeJ(Bereich As Range, Farbe As Integer)

Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 40 And Zelle.Font.Strikethrough = False Then
FarbsummeJ = FarbsummeJ + Zelle
End If
Next
End Function

Ich möchte diese Funktion gerne mit dem aktuellen Monat erweitern, z.B. ähnlich "... and Monat(Heute()) Then ..."

Die zum Betrag in Spalte J zugehörigen Datumsangaben befinden sich in der Spalte i (i10 bis i350).

Viele Grüße
Richard