Hvis dato er mindre end X og større end Y, så ...., ellers...

Hvilket regnearksprogram?

Kan det være en makro?

ups. Excel.

Hvis Ja - kunne den se sådan ud:

Const startRæk = 1
Dim antalRækker As Integer
Const datoInterval = "01-11-2012,01-03-2013;01-01-2009,01-10-2012"
Dim iSum(2) As Double, ræk As Integer, aktuelleDato, tabel As Variant, del As Variant
Dim d1 As Date, d2 As Date
Public Sub sumInterval()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    iSum(0) = 0
    iSum(1) = 0
   
    tabel = Split(datoInterval, ";")
   
    For ræk = startRæk To antalRækker
        aktuelleDato = Range("A" & ræk)
        If IsDate(aktuelleDato) = True Then
            For d = 0 To 1
                del = Split(tabel(d), ",")
                d1 = del(0)
                d2 = del(1)
               
                If aktuelleDato > d1 And aktuelleDato < d2 Then
                    iSum(d) = iSum(d) + Range("B" & ræk)
                    Exit For
                End If
            Next d
        End If
    Next ræk

    MsgBox iSum(0) & "  " & iSum(1)
End Sub

=SUM.HVISER(B1:B5;A1:A5;"<01-03-2013";A1:A5;">01-11-2012")
=SUM.HVISER(B1:B5;A1:A5;"<01-10-2012";A1:A5;">01-01-2009")

Tak, Supertekst.
Det var dog ikke en VBA-løsning, jeg var på jagt efter. :-)
Jeg er såmænd VBA-fan, men ser det altid som en nødløsning, når basis-funktioner giver op.

Tak for input, Erik. Den tjekker jeg ud ASAP og vender tilbage.

Selv tak