Avatar billede pejsen Nybegynder
24. marts 2009 - 19:43 Der er 1 løsning

Save as: WEEKNUM(B2,1) "-" WEEKNUM(B2 +63),1)

Hej

Jeg skal lave en makro som gemmer min fil med dynamisk ugenr. som filnavn: eks: Uge 10 - uge 18.

Jeg har en dato i celle B2, som er første dag i eks. "uge 10",
Men kan ikke finde ud af, at returnere datoen i celle B2 til et uge nr.

Filnavnet skal gemme : Celle B2 som ugenr "-"  Celle B2 (+ 63 dage) som ugenr
= Hvis datoen er 02-03-2009 i celle b2, skal filnavnet vises således : "Uge 10 - Uge 18"

Tænker noget i retning af :

Sub Saveas()

If Now() > [B2] + 63 Then
ThisWorkbook.Saveas "G:\@Privat\Træning\" & Weeknumber[B2] - Weeknumber[B2 + 63] & " ".xls"""
Application.DisplayAlerts = True
Else
exit sub

End If
End Sub
Avatar billede pejsen Nybegynder
24. marts 2009 - 22:44 #1
Fandt selv en løsning !! :-)


Sub Saveas()

Dim Uge As Integer
Dim Uge1 As Integer

Uge = DatePart("ww", [b2].Value)
Uge1 = DatePart("ww", [b2].Value + 63)

Application.DisplayAlerts = False
If DatePart("ww", Now) < Uge1 Then
ThisWorkbook.Saveas "G:\@Privat\Træning\" & "Uge " & Uge & " - " & Uge1 & " " & Year(Date) & ".xls"
Application.DisplayAlerts = True
Else
MsgBox "Vi er ligenu i uge " & DatePart("ww", Now)

End If
End Sub
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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