VBA Tabbladen een naam geven

[Roma]

Beste forumleden,
Ik heb een bestand waarin ongeveer 50 tabbladen zitten. 35 daarvan moeten automatisch een naam krijgen vanuit tabblad invoer. Ik heb een macro gevonden maar deze werkt niet.
Wie kan mij helpen

 

[pasan]

De eerste Tabbladen van links naar rechts geteld worden niet aangepast, deze code begint bij Tabblad 16 de naam aan te passen

Sub tabnaam()
 Dim Bladnaam As Variant
  Bladnaam = Range("B12:B46")
  aantalbladen = Sheets.Count
  
   For i = 16 To 50
     If i > aantalbladen Then Exit Sub
      a = Bladnaam(i, 1)
       Worksheets(i).Name = a
   Next
End Sub

 

[Roma]

Beste Pasan,
Helaas het wekt niet

 

[pasan]

wat gaat er mis ?
het moet werken bij worksheet change event?
en deze?

Private Sub Worksheet_Change(ByVal Target As Range)
'Tabbladen een naam geven
Dim Bladnaam As Variant

 If Target.Address = "$E$5" Then
 
  Bladnaam = Range("B12:B46")
  aantalbladen = Sheets.Count
  
   For i = 5 To 12
     If i > aantalbladen Then Exit Sub
      a = Bladnaam(i, 1)
       Worksheets(i).Name = a
   Next
 End If
End Sub

 

[Roma]

sorry ik snap r geen jota van
ik heb de tabbladen aangemaakt mar er gebeurd niets

 

[pasan]

moment ik zal een voorbeeld bestandje plaatsen zo

 

[pasan]

zo dan

 

[snb]

In jouw bestand van #5

Sub tabnaam()
  sn = Range("B12:B46")
  
   For j = 1 To Sheets.Count
       Sheets(j).Name = sn(j, 1)
   Next
End Sub

 

[pasan]

je zegt 35 van de ongeveer 50 bladen moeten een andere naam krijgen
Betekend dit dat de eerste 15 Tab bladen nooit veranderen?

 

[Roma]

de laatste tabbladen, 35 stuks, kunnen regelmatig van naam veranderen de rest heeft een vaste waarde.
Ron

 

[VenA]

Even een tussendoor vraag waarom wil je de naam van de tabjes veranderen? Lijkt mij niet heel hel erg zinvol maar ik kan het natuurlijk mis hebben.

 

[Roma]

de 35tabbladen die van naam veranderen zit in het volgende: Deze tabbladen zijn een onderdeel van een dienstrooster voor collega's van mijn vrouw. de tabbladen zijn bedoeld voor he schrijven van overwerkformulieren voor de salarisadministratie. Er zijn veel wisselingen in het bestand. vandaar.
De format die je hebt gestuurd werkt redelijk goed (Chapeau). Er komen geen dubbele namen voor dus de gele cel is overbodig.

Alvast bedankt voor de moeite die je hebt gedaan voor mij

 

[Roma]

Pasan Het werkt bedankt voor je inzet