datum vandaag en weeknummer in button

[drubbus]

ik wil graag in een button met datum vandaag en het weeknummer daarin

Alleen de datum vandaag lukt wel die haal ik op van blad2 uit cel a1
code is :

Blad4.CommandButton1.Caption = "vandaag is het: " & Sheets("Blad2").Range("A1").Value

Nu heb ik in blad2 cel a2 het weeknummer staan
Deze wil ik ook toevoegen in dezelfde button met alvorens de text "week nummer:"
Alleen het nummer toevoegen lukt wel maar over het stukje text ("week nummer:") struikel ik

Iemand een idee?

drubbus

 

[JeanPaul28]

Bedoel je dit

 

[drubbus]

JA helemaal ..

maar ik kan je code niet vinden

 

[OctaFish]

De code staat in de module THisWorkbook, maar waarom gebruik je cellen?

Blad1.CommandButton1.Caption = "Datum: " & Format(Date, "dd-mm-yyyy") & ", week " & DatePart("ww", Date, 2, 2)

 

[snb]

In Europa (voglens de ISOnorm):

Blad1.CommandButton1.Caption = "Datum: " & Format(Date, "dd-mm-yyyy") & ", week " & Datepart("ww",Date-weekday(Date,2)+4,2,2)

Voor uitleg van de ISO norm:

http://www.snb-vba.eu/VBA_ISO_weeknummer.html

 

[drubbus]

Is idd omslachtig
jouw oplossing werkt beter
dank je wel!
Werkt perfect

:thumb: