DANKE - Stimmt, falscher Befehl, nun lautet meine Code:
Sub Makro1()
Value000090 = Application.WorksheetFunction.SumIfs(Range("T2:T78"), Range("L2:L78"), "<=" & _
Cells(2, 2), Range("L2:L78"), ">=" & (Cells(2, 2) - "90"))
MsgBox Value000090
End Sub
Der Fehler ist zwar weg, jedoch kommt in der MsgBox der Wert 0.
Hier zum Vergleich die Excel-Funktion mit ders Funktioniert:
=SUMMEWENNS(T2:T78;L2:L78;"<="&B2;L2:L78;">="&(B2-90))
|