Tabellenblatt kopieren und umbenennen

Question

Hallo,

ich möchte das aktive Tabellenblatt
1. kopieren (ans Ende stellen)
2. das Datum in B2 um 7 erhöhen
3. das Tabellenblatt umbenennen in die Kalenderwoche aus Zelle B1 ("KWxx).

Es wäre schön, wenn jemand eine Lösung hat (Excel 2010).

Vielen Dank schon mal & Grüße
Thomas

Answer 1

Hallo Thomas,

das folgende Makro gehört in ein Standard Modul deiner Arbeitsmappe:

Sub blatt_kopieren()

ActiveSheet.Copy After:=Sheets(ThisWorkbook.Worksheets.Count)
With ActiveSheet
.Range("B2") = .Range("B2").Value + 7
.Name = "KW" & .Range("B1").Value
End With

End Sub

Gruß

M.O.

Answer 2

Super! Genau was ich brauche.

Vielen Dank, Grüße und schönes WE.

Thomas