Naam van tab bladen op eerste werkbald

[casluc]

Ik heb een bestand waarin diverse tab bladen worden gebruikt.
Nu is mijn vraag is het mogelijk d.v.m van een stukje VBA om de namen van deze tab bladen op dit eerste blad te krijgen?
Het is namelijk een bestand waarin op de verschillende bladen status staan van projecten.
elk project heeft zijn eigen blad.
Telkens als er een nieuw project komt dan wordt er een tabblad toegevoegd.`

 

[MauriceSmit]

zeker mogelijk;

gebruik de code:

Public Sub WriteTabNames()
  dim WRow, WCol as integer 'Dit zijn de regelnummers en kolomnr waar naar weg moet worden geschreven

  WRow = 16 'Zet hier neer op welke regel de naam van het 1e tabblad moet komen
  WCol = 4 'Zet hier neer welk kolomnummer de gegevens worden weggeschreven
  with sheets("VOORBLAD")
      For each sheet in thisworkbook.sheets
           .cells(WRow,WCol) = sheet.name
           WRow=WRow+1
      Next sheet
  end with
End Sub

Succes!

 

[casluc]

bedankt voor de snelle reactie
krijg een fout melding dat de variable 'sheet' niet is gedefineerd.
heb deze als variant gemaakt en het werkt

is percies wat ik zoek
hartelijk bedankt

 

[MauriceSmit]

Je moet het woord "Voorblad" vervangen door de naam van je voorblad

 

[casluc]

with sheets("VOORBLAD")
For each sheet in thisworkbook.sheets
.cells(WRow,WCol) = sheet.name
WRow=WRow+1
Next sheet

Ik bedoel bovenstaande variable
Maar probleem is opgelost:thumb::thumb:

 

[MauriceSmit]

Super; zet de vraag dan ook op 'opgelost'

:thumb: