tabblad naam wijzigen

[RichardP]

Ik zit met een probleem.
Ik moet nu handmatig tabbladnamen aanmaken.
Ik wil graag tabbladnamen per dag maken voor elke maand.
Hoe kan ik in 1 maand 31 tabbladen maken met de maandnaam en dag.
Zonder dat ik dit per stuk hoef in te typen.

Dus voor de maand juli wil ik maken 31 tabbladen met de naam jul01,jul02 enz.

Is hier een makkelijk oplossing voor?

Please help me.

Richard

 

[lcodee]

Tabbladen.

Hallo.

Probeer het volgende is:

Open het werkbook en zorg dat er maar 1 tabblad is

Ga met Alt+F11 naar Vba . Ga naar Invoegen/Module er komt een nieuwe module.

Dubbelklik hierop en plaats de volgende code:

 Sub Copysheet()
Dim i As Integer
Dim Dagen As Integer
Dim Maand As String
Maand = InputBox("Voer maand in")
Dagen = InputBox("Hoeveel dagen heeft deze maand")


    For i = 1 To Dagen
    Worksheets.Add Count:=1, After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Maand & "0" & i
    Next i
    
    Sheets(1).Delete
    
End Sub

 

[Justes]

Hallo Richard,

Zie bijlage, mede dank aan LucB.

Gr Justes

 

[RichardP]

Leo,

Super.
Werkt als een trein.

Thanks.
RichardP:thumb: :thumb: :thumb: