VBA - sum over flere ark med anvendelse af LOpslag

Hej

Jeg har forsøgt at udarbejde en funktion som kan foretage summering over flere ark (månedsark) udfra en given betingelse (i stil med LOpslag).

Det er ikke lykkets mig at få den til at virke.

Er der en der kan hjælpe mig med opbygningen og løsningen af funktionen?


Beskrivelse af funktionen:

Der findes - et totalark (Total) og 12 månedsark (Jan, Feb, Mar, Apr, Maj, Jun, Jul, Aug, Sep, Okt, Nov, Dec)

Jeg ønsker at kunne angive et månedsnummer i en celle i Totalarket, hvorefter funktionen skal kunne summere tallene fra Ark Jan til og med den angivne måned.

Summeringen skal ske udfra en betingelse om at der i kolonne A i månedsarket skal stå den valgte Opslagsværdi.

Med angivelse af KolonneIndeks bestemmes hvilken kolonne sumdata skal hentes fra.

Function SumSpeciel(Opslagsværdi As String, SumArk As Range, Måned As String, KolonneIndeks As String)

Opslagsværdi - er den værdi som programmet skal søge efter i kolonne A i de underliggende ark (SumArk)

SumArk - er de ark som data skal summeres fra hvis Opslagsværdien findes i kolonne A

Måned - er den måned der skal summeres til (der summeres fra Januar og til den angivne måned)


Håber der er en der kan hjælpe.

Med venlig hilsen

TVC