Hallo liebe Community,

ich kopiere jeden Montag das Tabellenblatt Original mit der automitschen Umbenennung auf das aktuelle datum via VBA. Gibt es denn die möglichkeit anstelle des heutigen Datums auch die Aktuelle KW schreiben zu lassen. Hier mal mein VBA Makro.

Sub Neues_Blatt()
'
' Neues_Blatt Makro

ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
Sheets("Original").Select
Sheets("Original").Copy After:=Sheets(1)
Sheets("Original").Select
Range("A3:A55").Select
Selection.Copy
Sheets("Original (2)").Select


Range("A3:A55").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True
ActiveSheet.Shapes.Range(Array("Bevel 1")).Select
Selection.Delete
Sheets("Original").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True


Sheets("Original (2)").Select

With ActiveSheet
.Name = Date
.Shapes(1).Delete
End With

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

ich sage schonmal vielen dank für eure Hilfe.

Mit freundlichen Grüßen

Sascha Niebler