das berechnen der aktuellen KW habe ich hier ja bereits gefunden.
Aber wie und wo binde ich das in meinen macro ein?
Function kalenderwoche_din(Datum As Date) As Integer
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
kalenderwoche_din = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
hier ist die Ausgabe meiner Datei, funktioniert so leider nicht? Oder muss ich das t& irgendwie ansprechen?
ActiveWorkbook.SaveAs Filename:= _
"Q:\Kundendienst\Word-Dateien\" & kalenderwoche_din, FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Danke fuer eure Hilfe
Lg Stefan