[Excel] Naam werkblad invoegen in cel A1

[_Leenroc]

Hallo allen,

Ik heb een probleem.

Hoe kan ik de naam van een werkblad in excel (2003 nl) in een cel laten terugkomen.

Oftwel standaard heet een werblad in excel Blad1

Nu wil ik deze naam automatisch in cel a1 terug laten komen.

bv door een functie =naam huidig werkblad ofzo hahahahaha

Maar dan een juiste excel functie

Hoor het graag!!!!!

Met vriendelijke groet,

Leenroc

[skate master]

Dit zal alleen gaan dmv een stukje VBA code.
open de VBA editor (alt + F11)
Voeg daar onderstaande code in in "ThisWorkbook"

code:

Private Sub Workbook_Open()
Sheets(1).Cells(1, 1) = Sheets(1).Name
End Sub

In deze code staat de 1 voor welke blad dat je wilt hebben. Dit kan dus ook 2 of zo zijn!

[_Leenroc]

Bedankt dat werkt inderdaad.
Maar als ik dan honderd sheets heb moet ik elke keer een nieuw stukje vb aanmaken??

Jammer dat er geen functie voor is........

[Montana]

_Leenroc schreef op zondag 03 juli 2005 @ 15:08:
Bedankt dat werkt inderdaad.
Maar als ik dan honderd sheets heb moet ik elke keer een nieuw stukje vb aanmaken??

Jammer dat er geen functie voor is........

Jawel, via een andere weg....

http://www.asap-utilities.com/

ASAP utilities installleren en dan kan het met een van de optie's uit het menu.

[_Leenroc]

Kijk das ook een optie maar dat moet dan de gehele organisatie installeren.
Kan dus niet vanuit excel zelf...... als ik jullie zo hoor
raar...........

[Verwijderd]

code:

=DEEL(CEL("bestandsnaam");VIND.ALLES("]";CEL("bestandsnaam"))+1;255)

[_Leenroc]

Wanneer ik de bestandsnaam invul krijg ik geen juiste formule....
Doe denk ik iets niet goed

=DEEL(CEL("meerwerk.xls");VIND.ALLES("]";CEL("meerwerk.xls"))+1;255)

[F_J_K]

nee, het "bestandsnaam" moest ook echt "bestandsnaam" zijn: zie de hulp info over CEL

Dat geeft als resultaat iets als 'C:\temp\\[foo.xls]Blad1', dat kan je dan alles de ']' nemen.

[WillyF]

Ik ga nu een beetje voortborduren op wat skate master hierboven heeft gedaan.
Als je onderstaande code in een module neerzet:

code:

Sub WorksheetNamen()

    Dim lngAantalSheets As Long
    Dim i As Long
    Dim rnWorksheetNaam As Range

    lngAantalSheets = Worksheets.Count
    
    For i = 1 To lngAantalSheets
        Set rnWorksheetNaam = Worksheets(i).Cells(1, 1)
        rnWorksheetNaam = Worksheets(i).Name
    Next i

End Sub

dan zie je met Extra -> Macro -> Macro's de naam van bovenstaande Sub opduiken in de lijst van uitvoerbare macro's.
Deze gaat alle sheets in het werkboek langs, en zet dan in A1 de naam van het werkblad.

En mocht je later weer wat aan de werkbladnamen hebben gesleuteld, dan voer je de macro gewoon nog een keertje uit.

[ Voor 10% gewijzigd door WillyF op 04-07-2005 18:18 ]

[_Leenroc]

Kijk we komen er wel.
Ik blijf meer vragen.

Kan je ook instellen als er wat in de cel staat (tekst of iets anders) dat hij dit dan niet overschrijft maar de tekst laat staan

[WillyF]

Dat kan.
Dan wordt het iets als dit:

code:

Sub WorksheetNamen()

    Dim lngAantalSheets As Long
    Dim i As Long
    Dim strWorksheetNaam As String
    Dim rnWorksheetNaam As Range
    Dim strInhoudCel As String

    lngAantalSheets = Worksheets.Count
    
    For i = 1 To lngAantalSheets
        Set rnWorksheetNaam = Worksheets(i).Cells(1, 1)
        strWorksheetNaam = Worksheets(i).Name
        strInhoudCel = rnWorksheetNaam
        If Len(strInhoudCel) < 1 Then
            rnWorksheetNaam = strWorksheetNaam
        End If
    Next i

End Sub

[_Leenroc]

Werkt prima...

Kan dit ook nog in ee function vorm?
Dat zou helemaal gewelidig zijn....

[F_J_K]

offtopic:
_Leenroc, je stelt leuke vragen (in je twee topics ben ik ook nog een tweetal nieuwe dingen tegengekomen en da's altijd leuk ) en de mensen helpen je blijkbaar graag ( ) maar het is toch wel de bedoeling om zelf ook wat initiatief te tonen en pas als het niet zelf lukt de vraag te stellen met uitleg van waar je vastloopt. Anders zijn we zo aan het voorkauwen en dat is op termijn voor niemand leuk. Dus doe zelf even een poging en zie waar het schip strand

[_Leenroc]

Ben het met je eens dat de hulp fantastisch is en daar ben ik blij om.
Maar sommige hebben verstand om een straatje aan te leggen (zoals ik) en zijn tegenwoordig
verplicht om dan gegevens in de pc te verwerken.
Het dagelijks werk van sommige is dus anders dan excel of andere pakketen doorspitten.

Het leken mij beide eigenlijk simpele vragen die wel standaard in excel zouden zitten maar blijkbaar niet.
Voor mij is dit allemaal hogere excelkunde en ben ik blij dat ik geholpen wordt dor de mensen die excelkundig zijn.

Hopelijk gaan deze toppers ook voor het eerder genoemde probleem een oplossing vinden.

Dus als iemand voor mij kan uitdokteren hoe de bovenstaande macro in een functionvorm is..............

Grt Leenroc