Søg
Avatar billede 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?
Avatar billede 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
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
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 16 17/08/202615:14 27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614:34
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 dag 15:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
I går 20:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
White papers
Flere white papers »