Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Werkbladen hernoemen  (gelezen 1184 keer)

0 leden en 1 gast bekijken dit topic.

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Werkbladen hernoemen
« Gepost op: 05 februari 2021, 20:32:44 »
Goedenavond,

Kunnen jullie mij helpen aan een vba code dat een aantal werkbladen kan veranderen naar SHEET1, SHEET2, SHEET3 etc etc. Men kan de werkbladen hernoemen naar wat ze willen maar via een vba code zou ik het willen kunnen terug hernoemen naar SHEET1, SHEET2, SHEET3 etc etc.

Hopelijk ben ik duidelijk.

Alvast bedankt!

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Werkbladen hernoemen
« Reactie #1 Gepost op: 05 februari 2021, 20:56:19 »
Hallo team roy,

Zet deze code even in een VBA- module:
Sub Hernoem_werkbladen()
newName = ("Sheet")
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: Werkbladen hernoemen
« Reactie #2 Gepost op: 05 februari 2021, 21:19:14 »
Super, het werkt! Hartelijk dank, jullie zijn geniaal!

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Werkbladen hernoemen
« Reactie #3 Gepost op: 06 februari 2021, 11:18:29 »
Team Roy, wat is de reden dat je de sheetnamen wilt terug veranderen?
______________________________

Groet, Leo

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: Werkbladen hernoemen
« Reactie #4 Gepost op: 06 februari 2021, 12:54:27 »
Hallo Redhead,

De reden is dat als de werkbladen SHEET1, SHEET2, etc heten ik ze makkelijk via een vba code (eerder een macro) kan omzetten naar andere namen. Bij gebrek aan vba kennis creeer ik simpele macro's.
Dus SHEET1 wordt dan anders genoemd etc etc. Als de werkbladen een andere benaming hebben, kan ik ze niet hernoemen.

Hoe moet SHEET1 hernoemt worden? Het krijgt de naam 1 (zie werkblad "data dat kan veranderen").
SHEET2 krijgt de naam 2. Enzovoort.

In werkblad "data dat kan veranderen" staat ook 'naam" en "kleur". De namen en kleuren verschijnen in de werkbladen, zie de werkbladen Sheet1, Sheet2 en Sheet3.

Belangrijkste ben ik vergeten te vragen of het mogelijk is dat van drie werkbladen zij niet veranderen van naam naar SHEET1, SHEET2, etc. De werkbladen heten "niet veranderen van naam1","niet veranderen van naam2", "niet veranderen van naam3".

Is het mogelijk dat je met vba dit kan maken? Vooral dat van de drie werkbladen die niet veranderen van naam a.u.b.

Ik heb een bestand bijgesloten. Als je vragen hebt, hoor ik het graag.


Hartelijk dank,

Roy

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Werkbladen hernoemen
« Reactie #5 Gepost op: 06 februari 2021, 14:13:47 »
Team Roy, zo'n soort antwoord verwachte ik al. Leer in VBA gebruik maken van de Sheet CodeName als je een workbook maakt waar gebruikers mee gaan werken. In de properties van een worksheet kan je in de VBE die codename aanpassen. Vervolgens roep je in je programmacode niet de sheet naam maar de codename aan.
Als voorbeeld heb je de CodeName van de sheet met de Tabnaam "sheet1" in de VBE aangepast naar "shEersteBlad"...
Het is dan in je code niet:
Sheets("sheet1").range("....")
maar:
shEerstBlad.range("....")
De gebruiker kan dan hernoemen wat die wil, maar je code blijft foutloos werken. Ga er maar eens mee spelen. Dan zal je merken hoe handig dit is.
______________________________

Groet, Leo

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: Werkbladen hernoemen
« Reactie #6 Gepost op: 06 februari 2021, 14:44:00 »
Dank je wel, ik ga het proberen.

groetjes,
Roy

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Werkbladen hernoemen
« Reactie #7 Gepost op: 06 februari 2021, 14:53:27 »
team roy,

hier nog een duidelijke tutorial over sheets en worksheets in VBA

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline mvdvlist

  • Lid
  • *
  • Berichten: 40
  • Geslacht: Man
  • Oplossing.be
Re: Werkbladen hernoemen
« Reactie #8 Gepost op: 06 februari 2021, 19:35:18 »
Inderdaad. En in het objecten venster van VBA zie je al dat ieder blad zijn eigen unieke codenaam heeft, Sheet1 enz of in NL Blad1

Dus bijvoorbeeld: sheets ("Voorblad").Visible = False
wordt dan:           Blad1.Visible = False

Dit is nog korter ook om in te voeren.

En inderdaad mag je dan de naam "Voorblad" gewoon veranderen in bijvoorbeeld "Dashboard"

P.S.: Vergeet het blad niet op True te zetten.... 0:-) ;D

Offline team roy

  • Lid
  • *
  • Berichten: 60
  • Geslacht: Man
  • Oplossing.be
Re: Werkbladen hernoemen
« Reactie #9 Gepost op: 06 februari 2021, 23:34:17 »
Top, dank!

 


www.combell.com