van één tabblad meerdere kopieen maken

[sjeeke]

Ik wil graag van een tabblad snel meerdere kopieën maken. Ik heb nu een macro die een tabblad (“WK”) 52 x kopieert. Dan krijg ik vervolgens tabblad WK (2), WK (3), WK (4) enz.

Eigenlijk wil ik:
Dat het tabblad de naam WK1 zal hebben en dan vervolgens meerdere tabbladen gekopieerd worden met de namen “WK4”, “WK7”, “WK10”, “WK13” … enz., dus in stappen van 3

 

[VenA]

Zo?

Sub kopieer_tabbladen()
  For j = 1 To 52 Step 3
    If IsError(Evaluate("'WK" & j & "'!A1")) Then
      Sheets("KW").Copy , Sheets(Sheets.Count)
      ActiveSheet.Name = "WK" & j
    End If
  Next j
End Sub

 

[sjeeke]

yep, super :thumb:

ik had dat stukje van IsError… niet correct....

thanks voor de snelle reactie...

 

[snb]

Meestal is het advies:

1 werkblad voor de gegevens (het hele jaar)
1 werkblad voor de weergave van een selektie van de gegevens (bijvoorbeeld 1 week)