Actief werkblad hernoemen

[Ad4Jansen]

Heren/dames,

Ik wil mijn huidige actieve werkblad hernoemen dmv een macro

Ik heb het al geprobeerd met een relatieve verwijzing maar dit gaat niet.

Sheets("Blad24").Select
Sheets("Blad24").Name = "voorbeeld"
Range("I3").Select
End Sub

of

Sheets("blad24").Select
Sheets("blad24").Name = "voorbeeld"

Ik wil dus het huidige/actieve (willekeurige) werkblad hernoemen.

Mijn bedoeling is om steeds een nieuw werkblad in te voegen en uit een andere lijst de naam van dit werkblad te halen. Helaas komt het systeem iedere keer met een nieuw blad nummer.

Alvast bedankt Ad

 

[Guus2005]

Het feit dat je het blad aanroept met zijn naam zorgt er eigenlijk al voor dat je die niet kan veranderen. als je het nummer van de tab gebruikt: Sheet(0).name = "Apenootjes" dan werkt het waarschijnlijk wél.

als je het nummer niet weet moet je die eerst opvragen.

succes!

 

[Wigi]

ActiveSheet.Name = "Ad4Jansen"

 

[Ad4Jansen]

Bedankt Guus maar...

Ik heb dit werkblad ingevoegd en dit blad is op dit moment actief.

Zelf dacht ik

activesheet.name. = "pepernoten"

Ik weet inderdaad de naam van het nieuw aangemaakte werkblad niet.

Je zegt dat ik dat op kan vragen

Kan je misschien helpen om dit dan in mijn macro op te nemen?


Alvast bedankt
Ad

 

[Wigi]

Zelf dacht ik

activesheet.name. = "pepernoten"

Verwijder . achter name en het werkt.

Tenzij dat die naam al gebruikt werd voor een ander tabblad.

 

[Ad4Jansen]

Wigi bedankt het werkt

:thumb::thumb:

Zelf had ik dit ook al geprobeerd maar waarschijnlijk zat er weeer ergens anders weer een typefout.

Wigi bedankt

Ad