VBA - Kalenderwochenblätter erstellen

[EasY]

Hi Leute,

ich möchte in einer Mappe ausgehend vom Jahr für jede Kalenderweoche entsprechend viele Blätter erstellen. Dabei soll er in einer bestimmten Zelle ("L1") auch die entsprechende Kalenderwoche schreiben.
Folgenden Code habe ich hierfür zusammengebastelt. 

Code:

Sub Blatt_erstellen()

Dim i As Integer
   For i = 1 To 2
       Worksheets("ESD").Copy after:=Worksheets("ESD")
       ActiveSheet.Name = i
       ActiveSheet.Cells("L1") = ThisWorkbook.Sheets("Berechnungshilfe").Cells(3 + i, 12).Value
   Next i
End Sub

Leider funktioniert das automatische Ändern der Zelle L1 nicht. Kann mir wer helfen?


Gruß
Hat wer eine Idee, was ich falsch mache?


P.S.: Dass i bis 52 oder 53 laufen soll, weiß ich ... zum Testen des Codes habe ich das allerdings runtergesetzt

[Klaus-Dieter]

Hallo,

am besten ist es, wenn du diesen Plan ganz schnell wieder vergisst. Die Daten sind auf dem einen Blatt gut aufgehoben. Wenn du einzelne Kalenderwochen sehen / darstellen möchtest, kannst du das zum Beispiel mit dem Autofilter erreichen.

[EasY]

Hi Klaus-Dieter,

es handelt sich um einen Arbeitsplan, der wochenweise ausgedruckt werden soll ... von daher kann ich von dem Plan leider nicht abweichen. Hast du denn keine Idee, wie ich beim Kopieren des Blattes eine bestimmte Zelle automatisch ändern kann?! So schwierig kann das doch nicht sein - ich bekomms nur nicht hin :(

[EasY]

ach herrje,

sorry es hat sich erledigt ... range und cells-Anweisung vertauscht.