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