• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Tabnaam veranderen met inhoud van en cel

Status
Niet open voor verdere reacties.
W

Woffels

Gebruiker
Lid geworden
8 jan 2006
Berichten
249
Hallo,
Ik wil graag met een druk op de knop een tabnaam veranderen. In de gele cel (NewName) staat de nieuwe naam die de user kan invullen. Door nu op de knop te drukken moet de tab met de naam 3000 veranderen in wat er in Newname staat. Daarna moet het gewoon nog een keer kunnen, dus die 3000 is geen vaste naam.
 

Bijlagen

  • Tabnaam.xlsm
    18,1 KB · Weergaven: 21
Ja perfect, ik wist niet dat en blad zn nummer behoud, ongeacht de naam die je hem geeft.
 
je kan het natuurlijk ook zo doen.
 

Bijlagen

  • Tabnaam.xlsm
    31,8 KB · Weergaven: 28
Kan ik ook nog extra tekens toevoegen aan die naam in de trend van & "_test", zoals je dat ook met cellen kan doen?
BV =[C3] &"_RAW"
 
Of:
Code: 
Private Sub cmdChangeTabName_Click()
 If Not IsError(Evaluate("'" & Cells(3, 4) & "'!A1")) And LCase(Cells(3, 4)) <> "settings" Then
  If IsError(Evaluate("'" & Cells(3, 3) & "'!A1")) Then Sheets(CStr(Cells(3, 4))).Name = Cells(3, 3).Value
 End If
End Sub
 
dat kan als het altijd hetzelfde is. anders gebruik je 2 cellen.
 

Bijlagen

  • Tabnaam.xlsm
    32,2 KB · Weergaven: 16
Werkt allemaal perfect.

Nu heb ik wel een flink aantal tabbladen waarvan ik de naam wil wijzigen en dat ziet er nu zo uit.
Code: 
    Blad2.Name = [Serial1].Value
    Blad3.Name = [Serial2].Value
    Blad4.Name = [Serial3].Value
    Blad5.Name = [Serial4].Value
    Blad6.Name = [Serial5].Value
    Blad7.Name = [Serial6].Value
    Blad8.Name = [Serial7].Value
    Blad9.Name = [Serial8].Value
    Blad10.Name = [Serial9].Value
    Blad11.Name = [Serial10].Value
    Blad12.Name = [Serial11].Value
    Blad13.Name = [Serial12].Value
    Blad14.Name = [Serial13].Value
    Blad15.Name = [Serial14].Value
    Blad16.Name = [Serial15].Value

Is dat niet eenvoudiger te doen met een for next lus?
Zoiets als dit:
Code: 
For i = 2 to 16
Blad[i] = Serial[i-1].Value
next i


Alleen weet ik niet hoe dat te noteren, zodat het ook werkt.
 
Probeer het zo eens.
 

Bijlagen

  • tabnaam.xlsm
    43 KB · Weergaven: 23
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan