Funktion aufrufen
29.05.2020 11:03:32
Marc
Ich habe eine tolle Funktion gefunden für die Berechnung der Kalenderwoche per VBA:
Function KALENDERWOCHE_DIN(Datum As Date) As Integer
'von Christoph Kremer, Aachen
'Berechnt die KW nach DIN 1355
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
Zu doof, dass ich nicht mal weiss, wie ich diese Funktion dann im Makro aufrufe. Mit einem Input Dialog übertrage ich das Startdatum in eine Variable d. Wie übertrage ich mittels der Funktion die Kalenderwoche in eine Variable w?