Tabblad aanmaken

[bascas]

Hallo,
In bijgevoegde sheet is het de bedoeling dat als je een cijfer invoert in kolom A, excel een tabblad aanmaakt met het nummer van die cel. Dat lukt!:thumb:Maar... als ik nu verder iets invoer op die regel dat maakt hij van de laatste invoer de tabbladnaam. deze verandert dus voortdurend en dat is niet de bedoeling. Wat doe ik fout?

Groet Bas

Bekijk bijlage Personeelskorting.xls

 

[Cobbe]

Deze kleine aanpassing zou dat al verhelpen:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
  If Target.Column = 1 Then Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = Target
End Sub

 

[bascas]

Bedankt Cobbe, ik had het antwoord al gevonden op helpmij.