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
Flytte fra et projekt til andet Af hkprofil i Excel 2 11/11/202612:17 I dag 12:49
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 I går 16:57
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
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
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
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »