[Excel] tabblad naam = B13, hoe?

[ThaHandy]

is het ook mogelijk dat als ik bijvoorbeeld, de naam van et tabblad/pagina (onderin) verwijs naar een cel.
Met ander woorden als ik in B13 "blah" in dat et tabblad ook zo heet

bijv.


kan dit?

[DJ^]

In de Excel XP help wordt er niks over vermeld, dan zal het dus ook wel niet kunnen

[Verwijderd]

Dit kan perfect! Als je iets kent van VBA natuurlijk
(met code dus, anders gaat het niet)
zowel in xp, 2k als 97
Zal straks ff zoeken hoe het nu were juust is, eerst naar de computerbeurs hier

[ThaHandy]

Op zondag 19 mei 2002 10:07 schreef gompie.net het volgende:
Dit kan perfect! Als je iets kent van VBA natuurlijk
(met code dus, anders gaat het niet)
zowel in xp, 2k als 97
Zal straks ff zoeken hoe het nu were juust is, eerst naar de computerbeurs hier

VBA nee daar weet ik nix van..

owkej ik wacht

[ThaHandy]

kick

ik moet dit weten

[Verwijderd]

mogelijk begrijp ik je verkeerd.

mar dat is toch gewoon rechtermuisknop op de tabblad naam en dan Rename.
Als je het tabblad dan "Blah" noemt kun je vanuit elk ander tabblad en cel naar "Blah verwijzen door de formule =Blah!A1
in geval van cel A1 op tabblad Blah.
Als ik je niet goed begrepen heb, sorry dan voor de posting.

[Verwijderd]

Nee dat is niet mogelijk. Althans, niet zonder dat je bijzonder omslachtige dingen gaat doen.
Natuurlijk is het te schrijven in vba. Je moet dan events bijhouden, als je dan de cel aanpast dan kun je de actie op die event zo schrijven dat tabblad-naam aangepast word.

Maargoed, dat is compleet nutteloos.

[hufkes]

Op dinsdag 21 mei 2002 17:33 schreef FizGig het volgende:
Nee dat is niet mogelijk. Althans, niet zonder dat je bijzonder omslachtige dingen gaat doen.
Natuurlijk is het te schrijven in vba. Je moet dan events bijhouden, als je dan de cel aanpast dan kun je de actie op die event zo schrijven dat tabblad-naam aangepast word.

Maargoed, dat is compleet nutteloos.

Het is dus niet mogelijk aan het begin van je bericht, en wel mogelijk aan het einde Vaag.

Persoonlijk denk ik wel dat het mogelijk is, maar dan alleen met vba. Beste oplossing is mijnsinziens niet die events afvangen op die cel, maar gewoon een knopje met als actie uitlezen uit cel en renamen die hap. Evt. knopje nog automagisch aanroepen bij opstarten/afsluiten

[Verwijderd]

Je leest niet goed. De vraag is of het mogelijk is met excel. Antwoord is dus nee. Daarna geef ik met althans aan, let goed op dat woord, dat het wel kan, maar dan met vba.

Zoiets:

code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b13").Value > "" Then
    Worksheets(1).Name = Range("B13").Value
Else
    Worksheets(1).Name = "onbekend"
End If

End Sub

Kijkt constant naar wijzigingen, niet alleen in cel b13, dat moet je zelf maar aanpassen Hang deze aan je worksheet waar je 't wilt hebben. Hij veranderd nu de naam van het eerste tabblad. Als je een ander wilt veranderen, pas dan het index-nummer (de 1 achter worksheets) aan.

[ThaHandy]

waar kan ik die vbl invoeren

[Verwijderd]

Op dinsdag 21 mei 2002 22:22 schreef ThaHandy het volgende:
waar kan ik die vbl invoeren

Alt+F11

[ThaHandy]

wheheh VET et werkt
tnx

[Beamer]

Sorry voor de kick van dit oude topic. Maar ik heb toch even een vraag, ik heb dezelfde vraag gekregen als de TS maar ik wil natuurlijk dat dit van toepassing is op al mijn tabbladen en niet voor 1, want ik ga niet heel de tijd de naam van mijn eerste werkblad zitten wijzigen.
De vraag is dus hoe zorg ik ervoor dat deze macro voor alle tabbladen gaat gelden. Ik heb al geprobeerd de code toe te voegen bij workbook (na alt+f11), maar dit werkt niet ook de 1 na worksheets verwijderen of worksheets in workbook wijzigen, maar ook dit werkt niet. Kan aan mijn kennis van VB liggen, maar ik zou erg geholpen zijn als iemand me kan helpen.

[ Voor 3% gewijzigd door Beamer op 23-08-2004 13:37 ]

[CoRrRan]

code:

Sub ChangeWSName()
Dim objSheet As Worksheet

For Each objSheet In ActiveWorkbook.Sheets
  If objSheet.Range("B13").Value > "" Then
    objSheet.Name = objSheet.Range("B13").Value
  Else
    objSheet.Name = "onbekend"
  End If
Next

End Sub

Is dit wat? Ik heb de procedure van het Change-event afgehaald, want dit is niet iets wat je elke keer bij een update van de sheet terug wilt zien. In plaats daarvan moet je de macro laten draaien door op ALT-F8 te drukken.

[ Voor 62% gewijzigd door CoRrRan op 23-08-2004 16:02 . Reden: Ietwat verandert... ]

[Beamer]

CoRrRan dit is wat ik zocht. Dam ik moet echt beter worden met VB enzo, in ieder geval bedankt, het werkt perfect.

[CoRrRan]

NP

FYI, goede vraagbaak voor dit soort dingen:

Nieuwsgroepen microsoft.public.nl.office.excel & microsoft.public.excel.programming of vbCity.com-forums.

[Verwijderd]

Edit: Te laat....As Alwayz!

Ik neem aan dat er For Your Information bedoeld wordt.... (en niet F*ck You imbecil, of zoiets) NOFI, heb zelf niet zoveel VBA-kaas gegeten...

[ Voor 10% gewijzigd door Verwijderd op 24-08-2004 14:17 . Reden: te laat... ]

[leon1e]

Ik heb even iets offtopic rotzooi verwijderd, willen jullie dit de volgende keer gewoon voor jullie zelf houden?