Excel VBA ZOEK: Werkblad (generator) obv adreskolom en (reken)sjabloon met macro's

[Lexcel]

Hallo,

Met belangstelling heb ik het nodige gelezen op deze site maar ik mis een goede oplossing voor mijn uitdaging:

Ik heb een rekensheet gemaakt voor de bepaling van de waarde van vastgoed.
Daarin heb ik een macro gemaakt (doelzoeken) dus ik sla dit het bestand op als .werkmap met macro's.
Dat gaat helemaal goed!

1e uitdaging: as ik er een sjabloon van wil maken valt de macro functie er uit.
Welke instellingen moet ik dan aanpassen onder opties? Kom daar helaas niet goed uit als ik probeer een "vertrouwde locatie" aan te maken.

Omdat het om 50 adressen gaat heb ik 50 werkbladen nodig. Via een op internet gevonden VBA code, een module en invoegtoepassing kan ik nu in ieder geval een inhoudsopgave maken. Dat gaat dus ook goed!

Maar nu andersom:
Ik zoek een mogelijkheid om o.b.v. een kolom met adressen tabbladen te genereren o.b.v. dat sjabloon.
Hoe krijg ik dat voor elkaar?!

Wat ik vond was dit (maar werkt niet of ik doe iets niet goed) van gebruiker Roncansio:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Foutmelding:
If Not Intersect(Target, Range("B5")) Is Nothing Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Target
End If

Foutmelding:
MsgBox "Dit werkblad bestaat al.", vbExclamation, "Werkblad bestaat al."
End Sub

Ik werk met MS Excel 2010.
Ik heb eigenlijk helemaal geen kennis van VBA en probeer de instructies goed uit te voeren.

Heeft iemand een idee hoe ik dit moet aanpakken?

Alvast super bedankt voor de hulp!

Groet Luuk

 

[HSV]

1). Opslaan als Excel-sjabloon met macro's (.xltm).
2).Bv.

sub hsv()
dim sn,j as long
sn = sheets("sjabloon").columns(1).specialcells(2)
for i = 1 to ubound(sn)
 if iserror(evaluate("'" & sn(i,1) "'!a1")) then sheets.add(, sheets(sheets.count)).name =sn(i,1)  
   sheets("sjabloon").usedrange.copy  sheets(sn(i,1)).[a1]
 next i
end sub

 

[Lexcel]

Beste HSV,

Super bedankt voor de hulp, echter...
Ik heb een module gemaakt en om te testen in A1 en B1 een adres opgenomen.

Tijdens de uitvoering krijg ik dit bericht:



Ik zie ook dat er verwezen wordt naar een sjabloon.

Kan je a.j.b. iets meer uitleg gegeven over je oplossing want ik wil dit heel graag werkend krijgen!!

Dank en groet, Luuk

 

[snb]

Als je werkboek een werkblad bevat dat je als sjabloon voor alle nieuwe werkbladen wil gebruiken, kun je dat eerst opslaan en daarna als sjabloon gebruiken:

Sub M_snb()
   Sheets("sjabloon").Copy
   ActiveWorkbook.SaveAs ThisWorkbook.Path & "\sjabloon.xlsx", 51
   ActiveWorkbook.Close 0
   
   sn = Sheet1.Columns(1).SpecialCells(2)
   For j = 1 To UBound(sn)
      If IsError(Evaluate(sn(j, 1) & "!A1")) Then Sheets.Add(, Sheets(Sheets.Count), , ThisWorkbook.Path & "\sjabloon.xlsx").Name = sn(j, 1)
   Next
End Sub