Avatar billede Bønnen Juniormester
20. juli 2018 - 11:50 Der er 1 kommentar og
1 løsning

Sum af celler ovenfor activecell

Hej

Nogen der kan hjælpe mig med en kode til, hvordan jeg udregner sum af de celler der er over min activecell indtil den første blank celle. Det skal gerne være en kode der fungere, ligegyldig hvilken kolonne eller række jeg står i.

Håber i kan hjælpe :)
Avatar billede store-morten Ekspert
20. juli 2018 - 17:58 #1
Prøv:
Sub AutoSum()
Dim cel1 As String, cel2 As String
cel1 = ActiveCell.Offset(-1, 0).End(xlUp).Address
cel2 = ActiveCell.Offset(-1).Address
ActiveCell.Value = "=sum(" & (cel1) & ":" & (cel2) & ")"
End Sub
Avatar billede Bønnen Juniormester
20. juli 2018 - 21:16 #2
Mange tak. Det fungere :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester