Lægge hver 6. kolonne sammen

Her er en lille Makro der i F10, L10 og R10 viser resultatet der står i række 1 til 9.

Sub MakroSUM()
'

    Range("F10").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
    Range("L10").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
    Range("R10").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
   
    Range("A1").Select
End Sub

Øh, den kan jeg ikke lige få til at virke, men jeg tror heller ikke det er præcist det jeg er ude efter. Jeg har en kolonne med f.eks. 10 tal, og dem får jeg lagt samme i celle nr. 11, som jo så er resultatet. Dette gør jeg så igen 6 kolonner længere henne, osv osv osv. Det vil sige at jeg har resultaterne og kan også godt lægge dem sammen sådan =A10+G10+...., MEN jeg søger en funktion, hvor man kan kan sige noget lignede dette, forestiller jeg mig, =funktion(rækkenr som skal bruges til udregning; startkolonne; hvor mange overspringskolonner). Så den med indhold kunne se f.eks. sådanne ud: =funktion(10; A; 6). Er dette muligt?

Public Function SpringSum(Første As Range, SpringCol As Integer, AntalCol As Integer) As Variant
Dim TempVal As Variant
Application.Volatile
rw = Første.Row
col = Første.Column + SpringCol
TempVal = Første.Value
For I = 1 To AntalCol - 1
TempVal = TempVal + Cells(rw, col)
col = col + SpringCol
Next
SpringSum = TempVal
End Function


Første = første celle

SpringCol = Hvor mange kolonner til næste

AntalCol = hvor mange gange skal springes

eks.

=SpringSum(B4;6;16)

Jeps, kabbak. Det virker, ligger du et svar

Et svar ;-))

Øh, jeg har lige et lille ekstra spørgsmål. Jeg har en kollega som jeg lige skulle hjælpe med denne makro også, men vi kan ikke få den til at køre på regnearket.

Vi vælger at åbne med makro. Men Excel kan ikke finde funktionen når vi indtaster den. Den kommer med fejlmeddelelsen #navn. Den ligger dog godt nok i editoren, men den bliver bare lide som ikke fundet når den skal bruges, hvad kan det skyldes?

Har i husket at det er i et modul den skal være, og ikke i ThisWorkbook eller arkmodulerne.

Kan i se den under brugerdefinerede makroer. ?

Nej, det er derfor, takker.

Hej Kabbak

Jeg tænkte, hvorfor er det lige den skal ligge under modul og ikke de andre steder?

Alle funktioner skal ligge under et modul, fordi ellers virker den ikke i alle ark.
Hvis den ligger i et arkmodul virker den kun i dette ark, og skal kaldes med arknavn + funktionsnavn