Tabbladen

[schrale]

Goede dag,


is het mogelijk op in een keer 52 tabbladen aan te maken genummerd 1 t/m 52 (aantal weken in een jaar)

Ben benieuwd

Groet

Schrale

 

[DJJochem]

In excel?
Volgens mij niet.

 

[schrale]

Tab bladen

Was ik al bang voor

Bedankt

 

[DJJochem]

Ja toch wel, met een macro.
Een simpele macro instellen die in een keer 52 bladen aanmaakt.
Ik zoek even de macro op, en dan geef ik hem even

 

[schrale]

tab bladen

Oke, bedankt alvast!

Schrale

 

[DJJochem]

Dit is de VBA code voor de macro:

Sub Macro1()

   For i = 1 To Application.WorksheetFunction.CountA(Worksheets("Sheet1").Range("A:A"))
   Sheets("Template").Select
   Sheets("Template").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = Worksheets("Sheet1").Cells(i, 1).Text
   Next i
End Sub

Bij het stukje

("Sheet1")

vul je de naam van een werkblad in.
Bijvoorbeeld weken.
Op dit werkblad zet je op elke regel een naam voor de nieuwe bladen.
Bij

("Template")

vul je de naam van het doel in.
Als je op blad 'Ontwerp' bijvoorbeeld een planner hebt ontworpen, wordt deze gekopiëerd naar alle nieuwe bladen.
Als je alles hebt ingesteld, voer je de macro uit, en hoppa!
Je werkbladen zijn aangemaakt.

 

[schrale]

Tab blab

hartelijk bedankt, hier kan ik wat mee

 

[DJJochem]

Graag gedaan!
Vergeet je niet de status op 'opgelost' te zetten?