Avatar billede denero Juniormester
15. maj 2008 - 16:12 Der er 16 kommentarer og
1 løsning

Dato, hvis og værdier

Ark 1:
celle A1 - startdato - opdateret fra andet ark.
celle B1 - slutdato - opdateret fra andet ark.
Celle C1 - antal dage i perioden (inkl.startdato, eksl. slutdato)
Celle D1 - gennemsnit af værdier (inkl.startdato, eksl. slutdato)

Ark 2:
kolonne A = datoer - opdateret fra andet ark.
kolonne B = tilhørende værdier - opdateret fra andet ark.
Kolonne C = kun de værdier fra kolonne B, som opfylder kriterier.

Hjælpen består i, hvorledes jeg får tal i celle C1 og C2 på ark 1
Avatar billede excelent Ekspert
15. maj 2008 - 16:31 #1
C1=SUMPRODUKT((Ark2!A1:A100>=A1)*(Ark2!A1:A100<B1))
C2=SUMPRODUKT((Ark2!A1:A100>=A1)*(Ark1!A1:A100<B1)*(Ark2!B1:B100))/C1
Avatar billede denero Juniormester
15. maj 2008 - 21:48 #2
Jeg skrev desværre forkert - der skulle have stået, hvorledes jeg får tal i celle C1 og D1 på ark 1. Desuden skal gennemsnittet kun udregnes på grundlag af celler, hvor der er værdi.
Avatar billede excelent Ekspert
16. maj 2008 - 07:56 #3
D1=SUMPRODUKT((Ark2!A1:A100>=A1)*(Ark2!A1:A100<B1)*(Ark2!B1:B100))/SUMPRODUKT((Ark2!A1:A100>=A1)*(Ark2!A1:A100<B1)*(Ark2!B1:B100<>""))
Avatar billede denero Juniormester
16. maj 2008 - 09:40 #4
Det virker ikke.
Muligvis min forklaring ikke er tydelig nok.
Startdato og slutdato skal fungere som kriterie for hvilke datoer der skal findes i kolonne A på ark 2, derefter skal antallet af datoforekomster stå i celle C1 på ark 1.Desuden skal data(ark 2 kolonne B) ud for hver datoforekomst lægges sammen og gennemsnit udregnes (skal så stå i celle D1 ark 1), men kun for det antal forekomster, som der er.
Obs. jeg mangler også en formel til arh 2 kolonne c.
Håber det hjælper.
Avatar billede excelent Ekspert
16. maj 2008 - 09:55 #5
virker ellers ok i mit testark

er det begge formler eller kun den ene ?

når der ikke er værdier i kolonne B, så er cellen tom eller hvad ?
Avatar billede denero Juniormester
16. maj 2008 - 10:09 #6
Begge formler og der altid værdier i kolonne b. Jeg prøver lige igen og vender tilbage senere - tidligst i morgen. Kan du evt. hjælpe med formlen til ark 2 kolonne c?
Avatar billede excelent Ekspert
16. maj 2008 - 10:13 #7
jeg har også bedre tid efter arb.tid :-)
send evt filen til pm@madsen.tdcadsl.dk
Avatar billede excelent Ekspert
17. maj 2008 - 13:21 #8
evt send et eks ark med nogle datoer

hvad skal formel i kolonne C ark2 gøre ?
Avatar billede denero Juniormester
19. maj 2008 - 12:14 #9
Har du modtaget min mail - får fejlmeddelse.
Avatar billede excelent Ekspert
19. maj 2008 - 16:26 #10
ja har modtaget, kikker på det
Avatar billede denero Juniormester
19. maj 2008 - 22:20 #11
Hvis man bruger formlen:
C1=DAGE360(A1;B1)

Start (A1)    Slut (B1)    Antal dage(C1)
28-02-2008    05-03-2008    7
05-03-2008    26-03-2008    21
26-03-2008    02-04-2008    6
02-04-2008    23-04-2008    21
23-04-2008    08-05-2008    15

Eller brugen en anden formel:
C1=DATO(ÅR(A1);MÅNED(A1);DAG(A1))-DATO(ÅR(B1);MÅNED(B1);DAG(B1))

Start (A1)    Slut (B1)    Antal dage(C1)
28-02-2008    05-03-2008    6
05-03-2008    26-03-2008    21
26-03-2008    02-04-2008    7
02-04-2008    23-04-2008    21
23-04-2008    08-05-2008    15

Spørgsmål: Hvorfor får jeg forskellige resultater og hvilken formel er den rigtige?
Avatar billede denero Juniormester
22. maj 2008 - 08:22 #12
Opretter nyt spørgsmål på seneste kommentar.
Avatar billede denero Juniormester
22. maj 2008 - 08:28 #13
Excelent - vil du lægge et svar.
Avatar billede excelent Ekspert
22. maj 2008 - 09:08 #14
jeps. husk at indsætte løsning her (ifølge "reglerne")
Avatar billede denero Juniormester
22. maj 2008 - 09:26 #15
Jeg er ikke helt med, da jeg ikke ved, hvorledes din funktion virker, blot at den virker.
Avatar billede excelent Ekspert
22. maj 2008 - 11:03 #16
ok jeg paster koden her når jeg kommer hjem
Avatar billede excelent Ekspert
22. maj 2008 - 18:34 #17
Function Besøg(ark, fra As Range, til As Range)
Set sh1 = Sheets("Dato - uge - besøgstal")
Application.Volatile
If ark = 1 Or ark = 0 Then
For Each c In sh1.Range("A3:A3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 2 Or ark = 0 Then
For Each c In sh1.Range("D3:D3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 3 Or ark = 0 Then
For Each c In sh1.Range("G3:G3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 4 Or ark = 0 Then
For Each c In sh1.Range("J3:J3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 5 Or ark = 0 Then
For Each c In sh1.Range("M3:M3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 6 Or ark = 0 Then
For Each c In sh1.Range("P3:P3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 7 Or ark = 0 Then
For Each c In sh1.Range("S3:S3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 8 Or ark = 0 Then
For Each c In sh1.Range("V3:V3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
If ark = 9 Or ark = 0 Then
For Each c In sh1.Range("Y3:Y3000")
If IsDate(c) Then
If c.Value >= fra And c.Value < til Then t = t + c.Offset(0, 2)
End If
Next
End If
Besøg = t
End Function
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