Werblad kopieren

[Marky76]

Beste,

In bijlage de code voor het kopiëren van het werkblad voor het ander met als naam voor het werkblad de naam van de maand.
Maar stel dat ik in de maand april een werkblad heb aangemaakt en dat ik dat van mei, pas aanmaak begin juni, dan krijgt de naam van het werkblad niet mei, maar juni.

Zou men de code kunnen aanpassen dat hij als naam van het werkblad de naam van de maand neemt juni maar -1, dus mei. Hoe kan je de code aanpassen.

Sub Nieuwwerkblad()
' Nieuwwerkblad Macro
' De macro is opgenomen op 6/06/2007 door Georges Cloosterin.

    Dim ws As Worksheet
    ActiveSheet.Copy before:=Sheets(1)
    Set ws = Sheets(1)
    With ws
        .Name = Format(Date, "mmmm")
        .Activate
    End With
    Wissen
End Sub

In bijlage een voorbeeldbestandje

 

[Wigi]

Sub Nieuwwerkblad()
' Nieuwwerkblad Macro
' De macro is opgenomen op 6/06/2007 door Georges Cloosterin.

    Dim ws As Worksheet
    ActiveSheet.Copy before:=Sheets(1)
    Set ws = Sheets(1)
    With ws
        .Name = Format([B]DateSerial(Year(Date), Month(Date), 0)[/B], "mmmm")
        .Activate
    End With
    Wissen
End Sub

 

[Marky76]

Wigi,

Net getest en dit werkt, nu kan ik de rest afwerken zonder onnodige handelingen.

Bedankt, Mark