Hallo,

ich habe (weiter unten stehend) eine Funktion, die auch richtig rechnet. Ich würde diese aber noch gerne mit einem Datumsbereich erweitern. Es sollen also die Werte in der Spalte J summiert werden, die a) im Bereich1 (= Spalte J) nicht durchgestrichen sind, b) im Bereich2 (= Spalte K bei mir) den Begriff "Amazon" haben und c) fehlt: der Betrag in Spalte J aus dem aktuellen Monat stammt, wobei die Datumsangaben in Spalte i vorliegen.

Public Function ohne_strichA(Bereich1 As Range, Bereich2 As Range)
Dim rngC As Range, dblZ As Double
Application.Volatile
For Each rngC In Bereich1
If rngC.Font.Strikethrough = False Then
If Intersect(rngC.EntireRow, Bereich2).Value Like "Amazon*" Then
dblZ = dblZ + rngC.Value
End If
End If
Next
ohne_strichA = dblZ

ActiveSheet.Calculate
End Function

Mit feundlichen Grüßen

Dieter