Nieuw tabblad dankzij macro met automatische inhoud

[wiba89]

Hier ben ik weer...
In bijgevoegde excel zou er per kolom automatische een nieuw tabblad moeten komen. Dus voor iedere kolom een nieuw tabblad met als naam van dit nieuwe tabblad de naam van de club.
Aangezien we op voorhand niet weten hoeveel clubs deelnemen en welke clubs dat dan ook zijn, kunnen we die tabbladen niet op voorhand aanmaken. Hopelijk kunnen jullie me helpen

Bedankt alvast!
Bekijk bijlage VIS-project.xlsx

 

[Timshel]

Voeg een werkblad "Sjabloon" in dat je opmaakt naar wens. Onderstaande code maakt de nieuwe werkbladen aan op basis van dit sjabloon:

Sub tsh()
    Dim Cl As Range
    
    For Each Cl In Sheets("Blad1").Rows(1).SpecialCells(2)
        On Error Resume Next
        Sheets(Cl.Value).Activate
        If Err.Number = 9 Then
            Sheets("Sjabloon").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = Cl.Value
        End If
        On Error GoTo 0
    Next
End Sub

 

[wiba89]

Voeg een werkblad "Sjabloon" in dat je opmaakt naar wens. Onderstaande code maakt de nieuwe werkbladen aan op basis van dit sjabloon:

Sub tsh()
    Dim Cl As Range
    
    For Each Cl In Sheets("Blad1").Rows(1).SpecialCells(2)
        On Error Resume Next
        Sheets(Cl.Value).Activate
        If Err.Number = 9 Then
            Sheets("Sjabloon").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = Cl.Value
        End If
        On Error GoTo 0
    Next
End Sub

OK, nu heb ik dus voor elke club een nieuw tabblad, maar de inhoud zou ook mee moeten verplaatsen. ik denk dat de bijlage wel verduidelijkt.
Bekijk bijlage VIS-project.xlsm

 

[gast0660]

Hoi,
hier een andere manier om tabbladen aan te maken.
Zo kan je verschillende clubs kiezen .
Greetz

 

[Timshel]

Wiba89,

1. Gelieve niet onnodig te quoten.
2. In het sjabloon zitten samengevoegde cellen. Daar kan ik niet mee werken. Plaats graag een nieuw bestand met een Sjabloon zonder samengevoegde cellen.
3. In je voorbeeldbestand zitten lege datumvelden. Als dit veld relevant is, plaats daar dan ook graag voorbeeldgegevens in.