I mit danske regneark har jeg oversat til det til i "Tuborgklammer" =SUM(L3:INDEX(A3:L3;STØRSTE((KOLONNE(A3:L3)-MIN(KOLONNE(A3:L3))+1)*(A3:L3<>0);MIN(TÆL.HVIS(A3:L3;"<>0");3))))/MIN(TÆL.HVIS(A3:L3;"<>0");3)
Men det giver resultatet "#NAVN?" Jeg kan sagtens bruge et par kolonner mere. Så kan jeg lave noget der ligner en formel der finder sidste værdi>0, og derefter næstsidste værdi>0. Husk det er en tidsakse jeg har ud af.
Den del er nem. Du har glemt INDEX som hedder INDEKS på dansk.
Hvad værre er, er at jeg ikke kan få formlen til at give korrekt resultat. Jeg får 7 2,666666667 1 2,333333333 0,333333333 0,333333333 1,666666667 1,333333333
i stedet for det ønskede:
7 6 3 8 1 2 5 4
Måske anedi kan forklare om hun får de ønskede resultater
Tak fordi du var vågen, når jeg nu sover. Med INDEKS istedet for INDEX får jeg nu de rigtige resultater i de første rækker, hvor der er mindst 3 værdier >0. Til gengæld får jeg forkerte resultater når der er mindre 3 værdier>0.
Ja tallene er som du skriver i de første 3 rækker. Anedis formel giver hos mig de rigtige resultater, og de er som du skriver 7, 6 og 3. Min formel ser således ud (i Tuborg klammer) =SUM(L2:INDEKS(A2:L2;STØRSTE((KOLONNE(A2:L2)-MIN(KOLONNE(A2:L2))+1)*(A2:L2<>0);MIN(TÆL.HVIS(A2:L2;"<>0");3))))/MIN(TÆL.HVIS(A2:L2;"<>0");3)
Formelen regner ikke rigtigt, hvis der kun er to eller en celle forskellig fra nul, idet den altid dividerer med 3. Alternativt kan denne makro bruges. Den checker hvor mange tal der er forskellige fra nul, og skriver resultatet i kolonne M
Sub Gennemsnit() Dim c, r, t, x, LastRow As Integer LastRow = ActiveSheet.UsedRange.Rows.Count ' tæller antal rækker Range("M2:M" & LastRow).ClearContents ' sletter gammel data For r = 2 To LastRow 'Begyndt loop for hver række t = 0 ' sletter sum x = 0 ' sletter antal celler For c = 12 To 1 Step -1 ' begyndt loop fro hver celle (kolonne L til A) If Cells(r, c) <> 0 Then ' checker om cellen er 0 t = t + 1 ' tæller celler <>0 x = x + Cells(r, c) ' summerer celler End If If t = 3 Then GoTo A: 'springer til A: hvis 3 celler talt Next ' loop slut for celler A: Cells(r, 13) = x / t ' skriver gennemsnit i kolonne M Next 'loop slut for rækker End Sub
Beklager radiostilheden. Ja jeg kan godt se, at der var en fejl i den oprindelige formel i og med, at nogle celler er tomme og dermed anderledes end 0.
Jeg håber du fik det til at virke med Excelents tilrettelse eller via Jens' makro.
God dag derude.
Vh Anedi
Synes godt om
Ny brugerNybegynder
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.