Blätter erzeugen und umbenennen

[WeisserWolf611]

Hallo Leute.
Nachdem ich so ziemlich alles realtiv gut mit der Hilfe des Forums lösen konnte, stehe ich nun doch wieder vor einem Problem.

Ich hab mir eine Tabelle angelegt, welche ich per Makro kopieren und am Ende wieder einfügen und umbenennen möchte.
Das funktioniert auch soweit gaz gut mit folgendem Code:

Code:

Sub neues_Blatt_einfügen()

   Sheets("August 2016").Select
   Sheets("August 2016").Copy After:=Worksheets(Worksheets.Count)
   Range("A12:Q13").Select
   Sheets("August 2016 (2)").Select
   Sheets("August 2016 (2)").Name = Format(Date, "MMMM YYYY")
End Sub

Ob das Blatt wirklich immer am Ende eingefügt wird kann ich noch nicht wirklich sagen, da ich mit der Benennung noch nicht klar komme.

Ich möchte eigentlich, dass das neue Blatt dann auf den nächsten Monat umbenannt wird.
Ich vermute das "DATE" dafür ungeeignet ist, aber ich komme da irgendwie nicht weiter.

Ich wette hier hat jemand eine Idee und die ist wieder so simpel das man sich schämen muss sie nicht zu kennen

Gruß
Wolf

[Storax]

Code:

Format(DateAdd("m", 1, Date), "MMMM YYYY")

liefert den nächsten Monat

[WeisserWolf611]

oha :20: 
Da wäre ich im Leben nicht drauf gekommen.
Vielen Dank!  :97: