Function SumaDleData(OblastDatumů As Range, OdData As Date, PoDatum As Date, PosunHodnotOdDatumů As Integer) As Double
Dim Souc As Double
Souc = 0
For Each bun In OblastDatumů
If Not (bun < OdData Or bun > PoDatum) Then Souc = Souc + bun.Offset(, PosunHodnotOdDatumů)
Next bun
SumaDleData = Souc
End Function
Pro součet datumů dáš posun 0, jinak o počet sloupců vpravo kladné vlevo záporné číslo.
Pozor na záčátek a konce hledaných datumů, je to práce s datumy, pokud budeš mít např. konec na 12.10.2011 a v datech budeš mít čas 12.10.2011 0:00:01 přestože zobrazení v buňce bude 12.10.2011, tak se hodnota nepřičtecitovat