Avatar billede MC3390 Juniormester
23. september 2026 - 18:11 Der er 5 kommentarer og
4 løsninger

VB, Lægge 2 celler sammen og skrive den i cellen ved side af

Jeg har en kollonne(E) hvor ikke alle celle er fyldt ud og ønsker en løbende sammentælling af Kollonne/E), men hvor sammentællingen bliver i kollonne(F) ved siden af for hver række.

Eks,

Rk.    (E)    (F)
  1  120  120
  2    85    205
  3
  4  250  455

Osv.

Michael
Avatar billede MC3390 Juniormester
23. september 2026 - 18:14 #1
Der skal kun skrives i Kollonne (F) hvis der står noget i Kollonne (E)
Avatar billede ebea Ekspert
23. september 2026 - 21:21 #2
Du skal blot låse dit første tal i kolonne E, som vist i denne formel:  =SUM($E$1:E1)
Så trækker du blot formlen nedad, fra kolonne F1, hvor formlen indsættes.
Avatar billede MC3390 Juniormester
23. september 2026 - 21:49 #3
Desværre ikke den løsning jeg er ude efter

Jeg har behov for at den tæller summen i kollonne E og hver gang den skifter række skriver summen ud for den række den er noget til og skriver det i Kollonne F

Eks,

Rk.    (E)    (F)
  1  120  120
  2    85    205
  3
  4  250  455
Avatar billede MC3390 Juniormester
23. september 2026 - 21:50 #4
Altså en række af gangen
Avatar billede MC3390 Juniormester
23. september 2026 - 22:03 #5
Fik denne til at virke, men kunne godt tænke mig en VB løsning
Avatar billede ebea Ekspert
Skrevet i går kl. 07:21 #6
#5 - Du skrev godt nok VB. Men det var lidt svært at tolke hvad du mente.

Denne kode her, skulle gøre det du skriver. Når der er en tom række i kolonne E, hopper kolonne F over, og fortsætter til næste række med tal.

Sub SumTal()
    Dim ws As Worksheet
    Dim sidsteRaekke As Long
    Dim i As Long
    Dim sumAsFar As Double
   
    Set ws = ActiveSheet
   
    sidsteRaekke = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
   
    sumAsFar = 0
   
    ws.Range("F1:F" & IIf(sidsteRaekke < 1, 1, sidsteRaekke)).ClearContents
   
    For i = 1 To sidsteRaekke
        If Trim(ws.Cells(i, "E").Value) <> "" Then
            sumAsFar = sumAsFar + Val(ws.Cells(i, "E").Value)
           
            ws.Cells(i, "F").Value = sumAsFar
        End If
    Next i
End Sub
Avatar billede MC3390 Juniormester
Skrevet i går kl. 10:17 #7
Halløj ebea

Jeg fik dit forslag "=SUM($E$1:E1)" til at virke og satte den ind i en =hvis formel, så det var rigtig godt.

Var bare nysgering efter en VB løsning



Den skal lave en løbende sammentælling af kollonne E, skrive subsummen ud for i samme række i kollonne (F) og gå videre til næste række for at se om der står noget i cellen i kollonne (E). Hvis der gør, tager den subsummen fra forrige celle i kollonne F og skriver det.

Det er ønsket at kunne se den løbende subsum i kollonne (F)


Giver det mening

Heraf Eks,

Rk.    (E)    (F)
  1  120  120
  2    85    205
  3
  4  250  455
  5
  6
  7 100  555
Avatar billede MC3390 Juniormester
Skrevet i går kl. 10:26 #8
Hej Ebea

Det virker, tak for hjælpen
Avatar billede ebea Ekspert
Skrevet i går kl. 11:16 #9
#8 - du er velkommen 😊
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
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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