Hallo,

ich möchte gerne in die nachfolgende Funktion noch eine Bedingung zusätzlich einbauen, scheitere aber daran.

Function FarbsummeJ10(Bereich As Range, Farbe As Integer)

Dim MyDate, MyMonth
MyDate = DateSerial(Year(Date), 10, 1)
MyMonth = Month(MyDate)

Dim Zelle As Range
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 35 And Month(Zelle.Offset(, -1)) = Month(MyDate) - 1 And Zelle.Offset(0, 1).Value Like "Amazon*" Then
FarbsummeJ10 = FarbsummeJ10 + Zelle
End If
Next
End Function

Um diese Zeilen geht es:
...
If Zelle.Interior.ColorIndex = 35 And Month(Zelle.Offset(, -1)) = Month(MyDate) - 1 And Zelle.Offset(0, 1).Value Like "Amazon*" Then
FarbsummeJ10 = FarbsummeJ10 + Zelle
...

mit angedachter Erweiterung (Farbe 35, Vormonat und Amazon plus Farbe 35, aktueller Monat und nicht Amazon:

Meine Idee:
...
If Zelle.Interior.ColorIndex = 35 And Month(Zelle.Offset(, -1)) = Month(MyDate) - 1 And Zelle.Offset(0, 1).Value Like "Amazon*" And Month(Zelle.Offset(, -1)) = Month(MyDate) And Not Zelle.Offset(0, 1).Value Like "Amazon*" Then
FarbsummeJ10 = FarbsummeJ10 + Zelle
...

Leider rechnet die Funktion mit der Erweiterung nicht richtig. Ist eine Lösung möglich?

Grüße
Jochen