Summere celler i vba

Sub Regn()

Range("A1").Select

Tal = 0
Do Until Len(ActiveCell.Text) = 0
    Tal = Tal + ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop


Range("B1").Value = Tal
Range("B2").Value = Tal / 2

End Sub

Håber det kan give dig en idé til at bygge videre :)

Tal = Tal + (ActiveCell.Value / 1.1)

Skal din formel muligvis hedde

Den virker som den skal - men, er det muligt at lave den som en function(), da tallene skal opdateres automatisk når der ændres i værdierne. Derudover kunne jeg godt tænke mig, at man kan markere de værdier man skal beregne, istedet for at de skal ligge i kolonne a. På samme måde som man bruger funktionerne på i regnearket. På forhånd tak......

Jeg forstår ikke helt hvad det er du gerne vil? :-O

Det er helt ok. Jeg prøver med et eksempel..

Hvis man har en masse værdier i et regneark:

100  200  500  300.... 600

så skal funktionen udføre denne opgave 100 / x + 200 / x + 500 / x + 300 / x +......+ 600 / x

men da værdierne kan starte hvor som helst i regnearket, så er det ikke muligt på forhånd at definere hvor værdier ligger. Så funktionen skal se sådan her ud

Regn(talværdier,x)

jeg tænker at man laver en loop i stil med:

for each cell in (range)
next cell

håber det giver lidt mening, men ellers skal den bare fungere lidt som npv() funktionen i excel

Sådan som jeg forstå det, så skal funktionen bruges sådan her:


A1 = 2
A2 = 1

B1 = Regn(A1:A2,2) > = 1½

Er det på sådan en måde du havde tænkt dig?

For hvis det altid er f.eks. 2 du skal divider med, var det så ikke nemmere at tage =Sum(Range)/2

Eller er jeg helt galt på den

forstår *

det første forslag du kom med var som jeg havde tænkt det. Men du havde lavet den som en sub, men jeg vil gerne have den som en funktion, hvor man vælger værdierne med musen.
Det er ikke altid det samme tal der skal divideres med, for det første tal skal divideres med 1,1^1 det næste 1,1^2 osv. Jeg har modificeret den sub du lavede så den passer med det ovenstående, men problemet er, at værdier skal indtastes i kolonne A, istedet for at man bare markerer værdierne, som i =regn(d3:d50,rente).
Mit problem er at jeg ikke ved hvordan man kan få vba til at tage den første værdi i rækken og så slutte ved det sidste tal. Men kunne forstille mig at det var noget med:

For each cell
Next cell

Hvis de kommer lige efter hinanden så kan du gøre sådan her :

Function Regn(rng As Range, Rente)
TalTotal = 0

For Each cell In rng
    TalTotal = TalTotal + (cell.Value / Rente)
Next

Regn = TalTotal

End Function

Function Regn(rng As Range, Rente)
TalTotal = 0

For Each cell In rng
    TalTotal = TalTotal + (cell.Value / Rente)
    Rente = Rente + 0.1
Next

Regn = TalTotal

End Function

Så kan du jo evt. forhøje renten på måden her :)

Det var lige det jeg havde brug for. Mange tak for det :)

Det var godt at høre :)