Søg
Avatar billede mfj1 Nybegynder
30. juli 2002 - 10:10 Der er 7 kommentarer og
1 løsning

Uge nr. giver dato

Hej Eksperter!!

Jeg har følgende "opgave":
I f.eks. 52 forskellige regneark skal jeg skrive uge 1, 2, 3 osv.
Alt efter hvilken uge jeg vælger at skrive, skal bestemte celler udfyldes med dato.

Eks.: Vælger jeg at skriver uge 35, så skal der i celle A10 vises datoen 26.07.02 og i celle A20 vises datoen 27.07.02 osv. til alle ugens 7 dage vises med dato

På forhånd mange tak for hjælpen
Avatar billede bak Forsker
30. juli 2002 - 10:21 #1
I celle A20 indsætter du denne formel
=DATO(2002;1;7*A10-3-UGEDAG(DATO(2002;;);3))
I celle A21 indsætter du =A20 + 1 og kopier denne ned til A26.
Avatar billede bak Forsker
30. juli 2002 - 10:29 #2
Sorry, så ikke lige at du havde et sping på 10 rækker.
hvis du skriver ugenummeret i fx A1 indsætter du i A10 formlen
=DATO(2002;1;7*A1-3-UGEDAG(DATO(2002;;);3))
I celle A20 indsætter du = A10 + 1
Du kan nu vælge A20:A29 og kopiere disse celler nedad
Avatar billede Flemming Vadet - Smart Office DK Professor
30. juli 2002 - 10:38 #3
http://groups.google.com/groups?hl=da&lr=&ie=UTF-8&oe=UTF-8&threadm=350102b2.56274608%40n1.2735.telia.com&rnum=2&prev=/groups%3Fas_q%3Dweek%26ie%3DUTF-8%26oe%3DUTF-8%26as_ugroup%3Dmicrosoft.public.excel.*%26lr%3D%26num%3D100%26hl%3Dda
Avatar billede Flemming Vadet - Smart Office DK Professor
30. juli 2002 - 10:39 #4
Det er en omstændelig løsning - kan bedre lide bak's løsning, hvis år 2002 bliver udskiftet med en celle reference, hvor du kan skifte årstallet.
Avatar billede bak Forsker
30. juli 2002 - 10:48 #5
Se evt. http://www.eksperten.dk/spm/229114
Avatar billede Flemming Vadet - Smart Office DK Professor
30. juli 2002 - 10:51 #6
:-)
Avatar billede bak Forsker
30. juli 2002 - 11:10 #7
hvis du vil have det indsat automatisk i alle 52 ark og du har ugen i a1 og årstal i a2 kan du bruge denne makro
Sub generer_uger()
Dim ws As Worksheet
Dim x As Integer
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A10").Formula = "=DATE(A2,1,7*A1-3-WEEKDAY(DATE(A2,,),3))"
For x = 20 To 70 Step 10
    ws.Range("A" & x).Formula = "=A" & x - 10 & "+1"
Next x
Next
End Sub
Avatar billede mfj1 Nybegynder
30. juli 2002 - 15:03 #8
bak >> Takker!
Det virker perfekt!
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
43 min siden Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »