Lav Lopslag i de rækker, der matcher 2 kriterier

opslagCprDato = Brugerdefineret funktion

formel(eks): =opslagCprDato("010203-1127";"27-2-2013";"10-03-2013")

VBA-koden:
Rem Indsættes i Module
Rem ==================
Const cprKol = "A"          'justeres
Const datoKol = "B"
Const krKol = "C"

Dim antalRækker As Integer
Public Function opslagCprDato(cprNr As String, fraDato As Date, tilDato As Date)
    ActiveWorkbook.Sheets(1).Activate
    antalRækker = Range("A65536").End(xlUp).Row
   
    For ræk = 2 To antalRækker
        If cprNr = Range(cprKol & ræk) And _
            Range(datoKol & ræk) > fraDato And _
                Range(datoKol & ræk) < tilDato Then
                opslagCprDato = Range(krKol & ræk)
                Exit Function
        End If
    Next ræk
   
    opslagCprDato = 0
End Function

alternativt

=SUMPRODUKT((A2:A5=A7)*(B2:B5>A8)*(B2:B5<A9)*C2:C5)

a7 = cpr
a8 =dato1
a9 = dato2
forklaring

sumprodukt ( (kriterie1)*(kriterie2)*(kriterie3)*Sumområde i rækken)

forstået sådan, når
(A2:A5=A7) = opfyldt, så er værdien 1, hvis ikke er værdien 0
derfor i dit eksempel - tænk sådan at den tager det pr. række

så du har 3 kriterier og en sum ergo

pr..........dato........kroner...
111111-9999..01-03-2011..1000..... => (1*1*1*1000) = 1000
111111-9999..01-03-2010..0400..... => (1*0*0*400) = 0
111111-9999..01-03-2012..3000..... => (1*1*0*3000) = 0
222222-3211..01-03-2012..3000..... => (0*1*0*3000) = 0

Summen er så 1000 , hvis der var flere rækker den overholdte ville den lægge dem sammen..

Status?

??

Giv et svar, Supertekst.

Det får du

... og tak for hjælpen.
:-)

Selv tak..