Automatisch tabblad maken met sjabloon met naam ingevoerd in cel (tabel of reeks)

[Terhoeven]

Goedeavond forumleden,

Graag hulp bij het volgende.

In een tabel wordt een naam ingevoerd.
Indien naam is ingevoerd dient hiervan automatisch een tabblad te worden aangemaakt met de naam welke is ingevoerd.
Tevens dient dan dit tabblad dan conform sjabloon te zijn welke reeds is gemaakt in het werkblad (tabblad) tabsjabloon

Groet René

 

[VenA]

Mooi man. Huur even iemand in die het voor je maakt.

https://www.helpmij.nl/forum/announcement.php?f=5

 

[Terhoeven]

Hartelijk dank voor de tip VenA.
Zoek het forum wel na, stonden links en rechts al wat oplossingen.

 

[emields]

bedoel je zoiets?

 

[Terhoeven]

Goedemorgen Emields,

Geweldig dit is wat ik bedoel.
Is het echter ook mogelijk om indien de naam is ingevoerd deze te bewaren in een tabel. Dus naam1 tot naamn en indien er een naam wordt toegevoegd deze tabel ook aangevuld wordt met naamn+1
Groet René

 

[emields]

Als ik u was zou ik toch even de moeite nemen om de link in V&A zijn bericht te bekijken.

 

[Terhoeven]

Goedemiddag Emields,

Hartelijk dank voor uw hulp.
Ik heb de link van VenA bekeken en kan me hier wel in vinden.
Nogmaals dank.
Vriendelijke groet René

 

[VenA]

In het linkje staat o.a dat je beter zelf een voorbeeld bestandje kan plaatsen.

Iets minder foutgevoelig

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) <> "E6" Then Exit Sub
  If IsError(Evaluate("'" & Target.Value & "'!A1")) Then
      Sheets("sjabloon").Copy , Sheets(Sheets.Count)
      ActiveSheet.Name = Target
      Sheets("namen").Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target
  End If
End Sub

 

[Terhoeven]

Emiels en VenA nogmaals hartelijk dank voor de hulp. Het werkt prima.
Groet René

 

[emields]

bedankt voor de terugkoppeling en vergeet niet, in uw eerste post, de vraag als opgelost te zetten.
Veel sucses