Beste Helpdeskers,
Waarom wordt het geen 1 januari 2021 en verder als ik op nieuwe maand klik in de bijlage?
Het einde v/h jaar wil ik graag naar 1 januari 2021. Maar als ik er op klik wordt het weer 1 januari 2020.
Wat moeter anders om wel naar 1 januari 2021 tegaan?
Waarom wordt het geen 1 januari 2021 en verder als ik op nieuwe maand klik in de bijlage?
Het einde v/h jaar wil ik graag naar 1 januari 2021. Maar als ik er op klik wordt het weer 1 januari 2020.
Wat moeter anders om wel naar 1 januari 2021 tegaan?
Code:
Sub new_maand()
'nu wordt er een nieuwe maand gemaakt
Dim Naam As String
Naam = StrConv(Format(DateAdd("m", 1, Range("A3")), "MMMM"), vbProperCase) & " " & Year(Range("A3"))
If IsError(Evaluate("'" & Naam & "'!A1")) Then
With Sheets("Template")
.Copy , Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = Naam
.Range("A3") = DateValue("01 " & Naam)
.Visible = True
Application.Goto .[B3]
End With
End With
Else
Application.Goto Sheets(Naam).[B3]
End If
ActiveSheet.Unprotect
'ActiveSheet.Protect
'ActiveWorkbook.Save
End Sub