Navigation

   uploads/1492/Bogføring.xlsm
Jeg har lidt problemer med kolonne K den skriver #VÆRDI!. Er det i MODULE2 som er dette, at jeg skal have ændret noget?: 

Funktion Saldo(T1 Som heltal, t2 Som heltal, t3 Som heltal) Som heltal
    Saldo = t2 - T1 + t3

Afslut funktion

Public Function FindSum(Kriterie1 As Range, Kriterie2 As Range)
    Dim Find1 Som Variant, Find2 Som Variant
    Dim data som variant, i som heltal, J som heltal, M som lang, RW så lang
    RW = Range("K30000").End(xlUp).Række
    Find1 = Kriterie1
    Find2 = Kriterie2
    Data = Range("K2:P" & RW)

    For M = 1 Til UBound(Data, 1)
        For i = 1 Til UBound(Find1, 2)
            Hvis ikke er tom(Find1(1, i)) Så
                Hvis Find1(1, i) = Data(M, 1) Så
                    Data(M, 1) = "+"

                    Afslut for
                Afslut Hvis
            Afslut Hvis
        Næste

        For J = 1 Til UBound(Find2, 2)
            Hvis ikke er tom(Find2(1, J)) Så
                Hvis UCase(Find2(1, J)) = UCase(Data(M, 5))
                    Data(M, 5) = "+"
                    Afslut for
                Afslut Hvis
            Afslut Hvis
        Næste
        Hvis Data(M, 1) = "+" Og Data(M, 5) = "+" Så FindSum = FindSum + Data(M, 6)
    Næste
Afslut funktion

Navigation

Saldo og trækningsret