Ich habe folgendes Problem.
Ich habe eine Tabelle diese soll 52 Tabellenblätter haben mit KW1 und KW2 usw.
Das hätte ich bereits durch ein Makro gelöst und funktioniert super. KW steht für _ Kalenderwoche
Sub KW()
Dim i
For i = 2 To 53
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "KW" & i - 1
Next
End Sub
Jetzt möchte ich es noch weiter ergänzen und zwar das er mir in die Zellen B3:F3 (Mo - Fr) automatisch das Datum von der KW1 schreibt.
Das heißt KW1 wäre zb. 01.01.16 und ein Freitag würde dann in Zelle F3 gehören
KW2 dann in
04.01.16 in Zelle B3
05.01.16 in Zelle C3
usw
Immer von Mo - Fr
Weiteres soll er mir in mir in Zelle G1 automatisch den selben Namen wie mein Tabellenblatt schreiben das heißt KW1 soll dann auch in Zelle G1 stehen usw.
Ist sowas möglich? Hat einer Idee wie man das umsetzen kann? Muss man da die Kalenderwochen in einem extra Tabellenblatt definieren?
Vielleicht so?
KW1 wäre nur der 01.01.16 also nur Mo - Fr
Kw2 dann 04.01.16 - 08.01.16 usw?