Sum over flere ark med indirect

prøv om denne kan hjælpe

http://www.eksperten.dk/spm/835367

Tror ikke jeg er hel "ekspert" nok til få rigtig meget ud af det tidligere spørgsmål - men har forsøgt en masse sjov ting, som dog ikke lykkedes :o)

Her er en brugerfidus, prøv den.

Husk at Ark1 altid er den der er længst til venstre

Public Function ArkSum(Ark1 As String, ark2 As String, seller As Range)
'**** by kabbak ****
    Dim OK As Boolean, Sh As Worksheet, C As Range
    Application.Volatile
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Name = Ark1 Then OK = True
        If OK Then
            For Each C In Sh.Range(seller.Address).Cells
                ArkSum = ArkSum + C
            Next
        End If
        If Sh.Name = ark2 Then Exit For
    Next
End Function


kaldes med

=ArkSum(B23;C23;B2)

Function SumArk(fra As Range, til As Range, rng)
Application.Volatile
SumArk = Evaluate("=SUM(" & fra & ":" & til & "!" & rng.Address & ")")
End Function

Hvis du har første arknavn i A1 og andet i B1 og vil summe celle D2
=SumArk(A1;B1;D2)

eller summe F1:F6
=SumArk(A1;B1;F1:F6)

Function minSum(gruppe)
Application.Volatile
For t = 1 To Sheets.Count
If Sheets(t).Name <> "Total" Then ' Total tælles ikke med
If Sheets(t).Cells(28, "B") = gruppe Then tal = tal + Sheets(t).Cells(2, "B")
End If
Next
minSum = tal
End Function

http://pmexcelent.dk/SumArk.xls

hvordan går det ?

Tak for henvendelserne (har lige holdt 3 ugers sommerferie, derfor det sene svar) - Jeg sidder lige og afprøver det. Ved hjælp af arket fra Excelent seneste svar, så har jeg fået det til at virke.

Desværre er jeg ikke stærk nok i Excel til at få din løsning til at virke Kabbak, omend jeg har stor tro til at det vil fungere, hvis man gør det rigtigt.

Send gerne et svar Excelent, så jeg kan give dig point...

Nårh, de er givet... ha' det fantastik eksperter!