folgenden Code habe ich hier gefunden und verwende Ihn.
Function KW_DIN(Datum)
KW_DIN = DatePart("ww", Datum, vbMonday, vbFirstFourDays)
End Function
Doch ich möchte gern das die KW mit führender Null ausgegeben/gespeichert wird.
Wie ändere ich die Zeile richtig.