Ich lese mir die aktuelle KW aus und speicher sie in eine Variable.
Über diese Variable (aktuelle KW) möchte ich das dazupassende Tabellenblatt, dass nach der aktuellen Kalenderwoche benennt ist, ansprechen.
'aktuelle KW
Dim i As Integer
i = (Date - DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1) - 3 + (Weekday(DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)) + 1) Mod 7) \ 7 + 1
Sheets(i).Range("A1") = "Test"i>
Warum funktioniert das nicht?
Liebe Grüße