Hjælp til sum formel

I hvilket ark/celler skal du have SUM ?
Fra hvilket ark/celler skal SUM beregnes ?

SUM skal beregnes i arket der hedder: ARK3 indtil videre, men kommer nok til at hedde Bearbejdning senere. Cellerne varierer i takt med antallet af navne i kolonne B.
Data til SUM kommer fra Input arket. Data fra input føres over i Ark3 via Indeks formlen.
Se evt her for et skærmprint:
http://img397.imageshack.us/my.php?image=ekspertennn0.gif

hvis sum skal laves under hver deltotal, bliver det en VBA-løsning

hvis alle (var det 5 deltotaler ?) kan laves samlet under alle deltotaler kan det gøres med alm. excel-formler

hvad skal vi satse på ?

Jamen så lad os prøve med VBA løsningen. Ja der er 5 deltotaler i alt.

jeg går ud fra det er en fortsættelse af dit andet spørgsmål "Samle kolonner"

så vidt jeg husker startede værdierne i række 9, er det ændret til 10 ?

Ja det er korrekt at det er en fortsættelse. Grunden til at det er linie 10 er at linie 9 er en overskrift som føres med over. Der skal ikke hentes data til denne overskrift. Der skal ligeledes ikke hentes data for de andre overskrifter:
Large Cap minus C20
Mid Cap
Small Cap
Øvrige

men hvad med dine værdier i kolonne C til R hvordan takler du dem
når kolonne B ændres ?

hvis det ikke er alt for følsomme data du har, var det måske bedre at sende en kopi til mig - koden skal jo indsætte sum formler i kolonne C til R, men i takt med du tilføjer eller fjerner navne
i de 5 stamkolonner vil sum formlerne jo skifte række !

Ja det er nemlig lige præcis der problemer opstår, som jeg også skriver i mit første spørgsmål. Det kan vist godt lade sig gøre at sende det. Vil du maile til mig på henne (a) webspeed.dk, så kan jeg sende programmet og lidt om mine problemer...

du kan bare sende det til : pm@madsen.tdcadsl.dk

så skal jeg forsøge at finde en løsning- blir sikkert ikke færdig i dag :-)

Sub find()
Dim adr As Range
Dim adr4 As Range
Dim søg As String
Dim adr2, adr3, t, rk
Dim s1, s2, s3, s4, s5, s6

rk = Sheets("Bearbejdning").Cells(1000, 2).End(xlUp).Row

Sheets("Bearbejdning").Range("C10:R1000") = 0
On Error Resume Next

For j = 1 To 16
søg = Sheets("Bearbejdning").Cells(8, j + 2)

For t = 1 To rk
søg2 = Sheets("Bearbejdning").Cells(t + 9, 2)
Set adr = Sheets("Input").Range("B30:B2600").find(what:=søg, LookIn:=xlValues, lookat:=xlWhole)
adr2 = Sheets("Input").Range(adr.Address).End(xlDown).Row
adr3 = Sheets("Input").Range(adr.Address).Row
Set adr4 = Sheets("Input").Range("C" & adr3 & ":C" & adr2).find(what:=søg2, LookIn:=xlValues, lookat:=xlWhole)
Sheets("Bearbejdning").Cells(t + 9, 2 + j) = adr4.Offset(0, 2).Value

Next
Next

s1 = 9
s2 = s1 + Sheets("Kurslister").Range("B126").Value
s3 = s2 + 2 + Sheets("Kurslister").Range("C126").Value
s4 = s3 + 2 + Sheets("Kurslister").Range("D126").Value
s5 = s4 + 2 + Sheets("Kurslister").Range("E126").Value
s6 = s5 + 2 + Sheets("Kurslister").Range("F126").Value
Sheets("Bearbejdning").Cells(s2, 3).Formula = "=sum(C10:C" & s2 - 1 & ")"
Sheets("Bearbejdning").Cells(s2, 3).Copy Sheets("Bearbejdning").Range("D" & s2 & ":R" & s2)
Sheets("Bearbejdning").Cells(s3, 3).Formula = "=sum(C" & s2 + 3 & ":C" & s3 - 1 & ")"
Sheets("Bearbejdning").Cells(s3, 3).Copy Sheets("Bearbejdning").Range("D" & s3 & ":R" & s3)
Sheets("Bearbejdning").Cells(s4, 3).Formula = "=sum(C" & s3 + 3 & ":C" & s4 - 1 & ")"
Sheets("Bearbejdning").Cells(s4, 3).Copy Sheets("Bearbejdning").Range("D" & s4 & ":R" & s4)
Sheets("Bearbejdning").Cells(s5, 3).Formula = "=sum(C" & s4 + 3 & ":C" & s5 - 1 & ")"
Sheets("Bearbejdning").Cells(s5, 3).Copy Sheets("Bearbejdning").Range("D" & s5 & ":R" & s5)
Sheets("Bearbejdning").Cells(s6, 3).Formula = "=sum(C" & s5 + 3 & ":C" & s6 - 1 & ")"
Sheets("Bearbejdning").Cells(s6, 3).Copy Sheets("Bearbejdning").Range("D" & s6 & ":R" & s6)

End Sub

Mange tak!

velbekom