Public
Sub
NeuesTabellenblatt()
Dim
strBlattname
As
String
Application.ScreenUpdating =
False
With
Sheets(
"Vorlage"
)
.Visible =
True
strBlattname =
"Kalenderwoche "
& WorksheetFunction.WeekNum(
Date
)
On
Error
Resume
Next
Sheets(strBlattname).
Select
If
Err.Number = 9
Then
.Copy after:=Sheets(
"Tabelle1"
)
With
ActiveSheet
.Name = strBlattname
.Range(
"A4"
) =
"Kalenderwoche "
& WorksheetFunction.WeekNum(
Date
)
End
With
Else
MsgBox
"Das Blatt "
""
& strBlattname &
""
" existiert bereits."
End
If
Err.Clear
.Visible =
False
End
With
Application.ScreenUpdating =
True
End
Sub