Tabellenblatt über Variable nicht ansprechbar
26.06.2017 08:02:59
Marco
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