Hallo,

ich habe eine Funktion, die ich gerne mit einer monatlichen Zuordnung erweitern möchte, d.h. dass ich wohl für jeden Monat eine jeweilige Funktion schreiben müsste.
Hier meine Funktion mit der angedachten monatlichen Zuordnung für den Monat Oktobef. In Zelle G10 steht das Datum (01.10.2023):

' In Zelle=Farbsumme10(H10:H350;40)
Function Farbsumme10(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 40 And Month(Zelle.Offset(, -1)) = Month(G10) + 9 Then
Farbsumme10 = Farbsumme10 + Zelle
End If
Next
End Function

In der Spalte G sind diverse Datumswerte, jeweilige Summen sind in Spalte H.
Das Problem liegt m.E. im Bereich "... =Month(G10) + 9" ...
Meine Idee: Für den Monat September würde ich die Funktion ähnlich schreiben, nur den Datumsbereich um 1 kürzen.

Viele Grüße
Peter