Nieuw tabblad aanmaken en bladnaam in ander blad in kolom zetten

[HarryBee001]

Experts,

Weet iemand hoe ik zodra er een nieuw tabblad wordt aangemaakt met naam, dat deze naam in een ander tabblad in kolom B vanaf cel 5 wordt geplaatst. En zo verder. Volgende bladnaam in cel B6 etc. En als er een tabblad wordt verwijderd, de naam weer uit de cel wordt gehaald, waarna de kolom met bladnamen weer aansluitend wordt. Dus geen lege cellen ertussen overblijven.
De code zou in de volgende code toegevoegd moeten worden.
Ik hoop dat een van jullie de oplossing weet.
Hartelijk dank voor het meedenken.

Groet Harry

Sub New_user()
 Dim sh As Object
    snaam = InputBox("Naam deelnemer")
    snaam1 = Left(snaam, 1) & "." & Right(snaam, 3)
     For x = 1 To Sheets.Count
     If Sheets(x).Name = snaam1 Then
      MsgBox "blad bestaat al"
     Exit Sub
    End If
    Next
     Sheets("Controleblad").Copy After:=Worksheets(Worksheets.Count)
      Worksheets(Worksheets.Count).Name = snaam
      Sheets(snaam).Range("B5").Value = snaam
       ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
      Sheets("Bladnamen").Range("B5").Value = snaam
     Sheets("Controleblad").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Worksheets("Uitslagen").Select
End Sub

 

[huijb]

@balonger Zou je dit soort kinderachtige reacties achterwege willen laten.

 

[sylvester-ponte]

hallo Harry
ik begrijp je code niet helemaal:
1) om te kijken of "snaam" al bestaat vergelijk je met "snaam1"
en verderop geef je de nieuwe sheet de naam "snaam".
dus als ik 2 maal de zelfde naam invul wordt dat niet opgemerkt.

en een vraagje: moeten alleen nieuwe namen in gevuld worden of wil je dat alle namen in dat lijstje komen
in de volgorde waar in ze staan.

wil je een uitgekleed voorbeeld bestandje sturen

groet sylvester