SUM.HVISER fra flere forskellige ark

Option Explicit

Function Sum_Ark_Hviser(Ark As Variant, SumOmråde As Variant, KriterieOmråde_1 As Variant, Kriterie_1 As Variant, KriterieOmråde_2 As Variant, Kriterie_2 As Variant, KriterieOmråde_3 As Variant, Kriterie_3 As Variant) As Variant
    With Application
        .Volatile
        .Calculate
    End With
   
    Dim ArrArk() As String
    ArrArk = Split(Ark, ";")
    Dim Count As Integer, Temp As Variant
    Dim SumArea As Range, Kriteria_1 As Range, Kriteria_2 As Range, Kriteria_3 As Range
    For Count = LBound(ArrArk, 1) To UBound(ArrArk, 1)
        Set SumArea = Sheets(ArrArk(Count)).Range(SumOmråde.Address)
        Set Kriteria_1 = Sheets(ArrArk(Count)).Range(KriterieOmråde_1.Address)
        Set Kriteria_2 = Sheets(ArrArk(Count)).Range(KriterieOmråde_2.Address)
        Set Kriteria_3 = Sheets(ArrArk(Count)).Range(KriterieOmråde_3.Address)
        Temp = Temp + Application.WorksheetFunction.SumIfs(SumArea, Kriteria_1, Kriterie_1, Kriteria_2, Kriterie_2, Kriteria_3, Kriterie_3)
    Next
    Sum_Ark_Hviser = Temp
End Function