Avatar billede Charlotte Juniormester
18. december 2017 - 12:03 Der er 1 kommentar og
1 løsning

Sumcolor

hejsa
Jeg har en VBA der næsten dræber mit system hvergang den skal opdatere:

Function SumColor(Cel, ran As range) As Double
    colo = Cel.Interior.ColorIndex
    colsum = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Then
            colsum = colsum + c.Value
        End If
    Next c
SumColor = colsum
End Function

Findes der en formel istedet??
Avatar billede finb Ekspert
18. december 2017 - 12:32 #1
prøv med sum.hvis  c=colo
Avatar billede jens48 Ekspert
18. december 2017 - 17:53 #2
Er det ikke blot et spørgsmål om hvad du sætter ind i formelen? Hvis du vælger en hel kolonne skal makroen gennemsøge samtlige 1045576 celler i kolonnen. Hvis du derimod for eksempel skriver F1:F1000 bliver den ca 1000 gange hurtigere.
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