sandra1978
Gebruiker
- Lid geworden
- 21 feb 2011
- Berichten
- 64
Hallo,
Ik heb een lijst met: opleidingen, en modules die in die opleidingen zitten (brondata). De bedoeling is dat er voor elke opleiding een nieuw werkbook gecreëerd wordt (dit lukt). Dan moet er voor elke module binnen de opleiding, een tabblad gemaakt, dat er telkens hetzelfde uitziet (een bepaald sjabloon).
Ik zit vast met:
- het aanmaken van de tabbladen lukt, maar dit gebeurt niet in het net aangemaakte document.
- ook lukt het me niet het sjabloon als tabblad te gebruiken ipv een leeg tabblad
Kan iemand me helpen?
Bedankt alvast
Ik heb een lijst met: opleidingen, en modules die in die opleidingen zitten (brondata). De bedoeling is dat er voor elke opleiding een nieuw werkbook gecreëerd wordt (dit lukt). Dan moet er voor elke module binnen de opleiding, een tabblad gemaakt, dat er telkens hetzelfde uitziet (een bepaald sjabloon).
Ik zit vast met:
- het aanmaken van de tabbladen lukt, maar dit gebeurt niet in het net aangemaakte document.
- ook lukt het me niet het sjabloon als tabblad te gebruiken ipv een leeg tabblad
Kan iemand me helpen?
Code:
ub MCr_LeerPlanDoelStellingen()
Dim module As Variant
Dim opl1 As Variant
Dim opl2 As Variant
Set shsjabloon = Workbooks("lpd_sjabloon.xlsx").Sheets("sjabloon")
Set wbsjabloon = Workbooks("lpd_sjabloon.xlsx")
Set wbbrondata = Workbooks("brondata.xlsx")
For Each opl1 In wbbrondata.Worksheets("opleidingen").Range("a1:a35")
shsjabloon.Activate
wbsjabloon.SaveCopyAs "O:\03_Harde_grafische_technieken_ambachten\8_onderwijspraktijk\11_leerplandoelstellingen\" & opl1.Value & ".xlsx"
For Each opl2 In wbbrondata.Worksheets("brondata").Range("a5:a300")
If LCase(opl2.Value) = LCase(opl1.Value) Then
'refereer naar net gemaakt werkbook, hoe?
Sheets.Add 'maar eigenlijk moet ik het sjabloon invoegen
ActiveSheet.Name = opl2.Offset(0, 3).Value 'er wordt een tabblad toegevoegd met de juiste naam, maar niet in het juiste document
End If
Next
Next
End sub
Bedankt alvast
Bijlagen
Laatst bewerkt: