Notifikationer

Markér alle som læst Log ud

hoell Nybegynder

11. oktober 2006 - 11:33 Der er 1 løsning

Ugenummer via VBA

Hej jeg har fra et andet spørgsmål sakset denne her:

=TEKST(AFKORT((A1-UGEDAG(A1;2)-DATO(ÅR(A1+4-UGEDAG(A1;2));1;-10))/7) & "-" &ÅR(A1);"0#")

og den virker Perfekt og giver det format jeg leder efter, men jeg har behov for at kunne indsætte følgende fire ugers numre i fire celler (dd 42-2006, 43-2006, 44-2006, 45-2006)

Nogen gode ideer?

Synes godt om

hoell Nybegynder

11. oktober 2006 - 16:36 #1

Og efter lidt moksen rundt i hjælp fandt jeg denne funktion: Datepart

Og så virker det:

Sub test()
DateP1W = Format(DateSerial(Year(Now()), Month(Now()), 7 + Day(Now())), "dd-mm-YYYY")
DateP2W = Format(DateSerial(Year(Now()), Month(Now()), 14 + Day(Now())), "dd-mm-YYYY")
DateP3W = Format(DateSerial(Year(Now()), Month(Now()), 21 + Day(Now())), "dd-mm-YYYY")
DateP4W = Format(DateSerial(Year(Now()), Month(Now()), 28 + Day(Now())), "dd-mm-YYYY")
MsgBox DatePart("ww", DateP1W, vbMonday, vbFirstFourDays) & "-" & Year(Now())
MsgBox DatePart("ww", DateP2W, vbMonday, vbFirstFourDays) & "-" & Year(Now())
MsgBox DatePart("ww", DateP3W, vbMonday, vbFirstFourDays) & "-" & Year(Now())
MsgBox DatePart("ww", DateP4W, vbMonday, vbFirstFourDays) & "-" & Year(Now())
End Sub

/Carsten

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
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
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

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS