VBA code iets aanpassen

[zwinmi]

Hallo Forum!

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
.SendMail "m_zwinkels@planet.nl", _
"Overzicht week"
On Error GoTo 0
.Close SaveChanges:=False
End With

Bovenstaande is een stukje van een VBA code (deze emailt een tabblad). Dit werkt allemaal goed. Nu zou ik graag in onderwerp van het emailtje voor ontvanger ook een weeknummer willen hebben. Dus zoals nu "Overzicht week 9". Op dit moment staat er dus alleen nog "Overzicht week"

Nu heb ik op internet de volgende code gevonden:

Function Weeknr() As Integer
Application.Volatile
Weeknr = 1 + Int((Date - DateSerial(Year(Date + 4 - WeekDay(Date + 6)), 1, 5) + WeekDay(DateSerial(Year(Date + 4 - WeekDay(Date + 6)), 1, 3))) / 7)
End Function

Deze zou als uitkomst het huidige weeknummer moeten geven, ik heb geprobeerd deze erachter te plakken maar dat lukt niet. Kan iemand mij vertellen hoe ik deze wel kan inpassen (als dat al mogelijk is).

Alvast bedankt,

Michael

 

[Ginger]

Zoiets?

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
.SendMail "m_zwinkels@planet.nl", _
"Overzicht week " [COLOR="Red"]& Weeknr[/COLOR]
On Error GoTo 0
.Close SaveChanges:=False
End With

De functie plaats je dan ergens anders in je module...

Groet, Leo

 

[zwinmi]

Top!! Dit was precies wat ik nodig had!

 

[Ginger]

Top!! Dit was precies wat ik nodig had!

't is soms makkelijker dan je denkt!

Groet, Leo