Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: tabbladen hernoemen  (gelezen 2915 keer)

0 leden en 1 gast bekijken dit topic.

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
tabbladen hernoemen
« Gepost op: 02 september 2006, 10:40:35 »
Goedendag uit het zonnige De Haan

Ik heb een vraagje betreffende het hernoemen van een tabblad.
Ik weet wel tabblad selecteren op de naam rechtklik en rename.
Maar het zou automatisch moeten.
Nu heb ik in VB gewerkt met een inputbox.
Wat is de bedoeling :
het is een agenda (persoonlijke uitvoering) waarbij iedere sheet 1 week bevat. Om het overzichtelijk te houden staan er 20 sheets (dus weken) in. Na 10 weken worden de eerste 10 weken verwijderd (delete sheet) en komen er 10 blanco sheets bij (genoemd sheet1 sheet2 enz).
Gezien het een volledig Vb progje is , is de sheetname van belang voor de invulling van de cell gegevens.
Vb sheetname e21 = de 21ste week van 2006.
De volgorde van de sheets is dus (na verwijdering)
e21 e22 e23 enz sheet1 sheet2 sheet3
Bedoeling is dus sheet1 te hernoemen naar e24.
Kan die naam (e23) ingelezen worden en dan vermeerderd naar e24)
Thanks en PW

Firmin
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline Yakko

  • Ambassadeur
  • *****
  • Berichten: 1.943
Re:tabbladen hernoemen
« Reactie #1 Gepost op: 02 september 2006, 12:11:38 »
Firmin,

Wat je moet doen is een object aanmaken dat verwijst naar bv sheet1 en daarmee dan de naam wijzigen. De code ziet er ongeveer zo uit:

Set objWorksheet = objWorkbook.Worksheets("Sheet1")
objWorksheet.Name = "Nieuwe naam die je wil"

Hopelijk kan je hiermee verder.

Yakko
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:tabbladen hernoemen
« Reactie #2 Gepost op: 02 september 2006, 20:11:42 »
Hallo Firmin

Worksheets("Sheet1").Name = "Nieuwe naam die je wil"

is al voldoende.

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

 


www.combell.com