tabbladen aanmaken

[Angela69]

In onderstaande code worden regels naar een, vooraf aangemaakt tabblad, gekopieerd.
Hoe moet de code aangepast worden om als het tabblad niet aangemaakt is, dit alsnog aantemaken?




Sub VenA()
With Sheets("Werkmap").Cells(1).CurrentRegion
For Each sh In Sheets
If sh.Name <> "Werkmap" Then
.AutoFilter 5, sh.Name
.Offset(1).Copy sh.Cells(Rows.Count, 1).End(xlUp).Offset(4)
End If
Next sh
.AutoFilter
End With
End Sub

 

[OctaFish]

Met een voorbeeldje (en je code opgemaakt in CODE tags) krijg je betere hulp .

 

[OctaFish]

Maar hiermee maak je een nieuw werkblad aan:

    ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)

 

[HSV]

Alle werkbladen zijn aangemaakt hoor.

[COLOR=#333333]For Each sh In Sheets[/COLOR]

Als een blad niet aanwezig is kan je er ook niet op filteren.
M.a.w. de code die je wilt gebruiken past niet bij je vraag.