Nieuw tabblad invoegen op basis van cel

[DVE75]

Goedemiddag,

Is het mogelijk om automatische een nieuw tabblad aan te maken op basis van een waarde in een cel.

In kolom A voer in een waarde in en dan wordt er een nieuw tabblad aangemaakt op basis die waarde.

Voorbeeld:
Cel A1 type bijvoorbeeld actie 1 en dan wordt tabblad actie 1 aangemaakt
Cel A2 type bijvoorbeeld actie 2 en dan wordt tabblad actie 2 aangemaakt
enz.

Iemand een geniale ingeving?

Bij voorbaat dank,

Daniel

 

[Timshel]

In de module van het werkblad waarin je werkbladnamen invoert:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And IsError(Evaluate(Target.Value & "!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = Target.Value
End Sub

 

[DVE75]

Helemaal top!

Dank u wel,

Daniel