31. december 2007 - 14:25Der er
6 kommentarer og 1 løsning
antal blanke i excel
Jeg har en timeforbrugsliste baseret på en variabel datoliste således at kolonne A B C D datoliste dage start slut
Kolonne E har jeg opretett som en skjult kolonne der konverterer månederne i A til et tal. ( jeg ved ikke om det er nødvendigt)
Datollisten kan starte på en vilkårlig dato, men jeg har brug for at man på månedsbasis ( f.ek.s januar )tæller antallet af blanke celler når både søndag og lørdag i samme uge er blank. Så kan man hurtigt læse hvor mange weekender man ikke har været på arebjdet i den konkrete måned.
Kan du ikke "nøjes" med at tælle antal mandage, tirsdage osv. for hver enkelt måned? I så fald kan du bruge funktionen =UGEDAG(A1;1) husk at konvertere feltet hvor du skriver formlen som brugerdefineret dddd Herefter er det en smal sag at tælle antal mandage, tirsdage osv. med funktionen =TÆL.HVIS(E:E;1) (1=søndag, 2=mandag, 3=tirsdag osv.) Sig til hvis du skal bruge mere hjælp /Be_Nice
Problemet er, at jeg kan have en datoliste der dækker over f.ek.s 6 måneder.Mit behov er, at jeg for hver enkelt måned i denne datoliste kan foretage en optælling. Som jeg læser dit forslag betyder det at den tæller alle mandage uanset måned.
Hvis du har datoer i kolonne A så tæller denne antal lørdage el. søndage hvor der i kolonne C er indtastet et tal/tid i den måned som er angivet i celle G1 med et tal fra 1 til 12
Vi nærmer os, men mit virkelige behov er sammentællingen af weekender ( dvs både lørdag og søndag i samme weekend) som er blanke. Her du en måned med 4 weekender, og der i to af disse ikke slet ikke er arbejdet, skal tallet 2 retuneres, selv om der i de to andre weekender kan være arbejdet enten lørdag eller søndag.
Har ikke lige umiddelbart et bud på en formel, men hvis en funktion kan bruges så prøv denne :
Indsættes i et alm. modul, i en celle indsættes fx. : =xWeek(A2:A400;G1) hvor G1 er den celle som indeholder et tal mellem 1 og 12 for måned
Function xWeek(Rng, mCell) Application.Volatile For Each d In Rng If Month(d) = mCell And Weekday(d, vbMonday) = 7 And d.Offset(0, 2) = "" And d.Offset(1, 2) = "" Then xWeek = xWeek + 1 End If Next xWeek = xWeek End Function
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.
