Beregninger med arrays (intern rente)

Jeg har lagt et ark her:

www.lunde.dk/filer/XIRR.xls

så man kan forstå hvad jeg ønsker. (uden noget vba)

1. Under funktioner / tilføjelsesprogrammer skal du slå Analysis toolpak - VBA til
2. I VBA sætter du under Tools / References flueben ved atpvbaen.xls

Du kan nu gøre sådan

Sub test4()
    arr1 = ActiveSheet.Range("A1:A21")
    arr2 = ActiveSheet.Range("B1:B21")
    test = xirr(arr2, arr1)
    Range("D6") = test
End Sub

Det var da fantastisk. Læg et svar

Dit svar fungerer 100% her, men jeg har problemer, idet jeg har defineret arrays lidt andeledes hos mig. Kan du evt. se på det? Jeg laver et nyt spørgsmål med nye point. Nyt link:
www.lunde.dk/filer/XIRR2.xls

Har lagt et svar på den nye.
Afslut bare denne og tag points selv

du har fortjent pointene begge steder