Auteur Topic: naam worksheet in Excel (gelezen 11479 keer)

erik · « **Gepost op:** 07 januari 2012, 21:51:16 »

HELLO THERE,

We hadden graag de inhoud van een cel zien verschijnen in de plaats van de naam van een werkblad in een Excelbestand.

We hadden al geklikt op een werkblad en dan op programmacode weergeven. Moet er een aparte module gemaakt worden en welke code moet er al dan niet inkomen?

vb: in cel A1 staat de naam Sjarel. We zouden graag deze naam ook zien verschijnen in de plaats van een bepaald werkblad.

Is de eerste keer dat we hier een vraag stellen.

Bij voorbaat dank.

Dummie

SoftAid · « **Reactie #1 Gepost op:** 07 januari 2012, 23:31:11 »

Hallo erik,

welkom op oplossing.be.

Wat je vraagt is eenvoudig en toch moeilijk.

Je kan een kleine macro schrijven

Code: [Selecteer]

Sub ...OnChange()
 Sheets("Blad1").Select
    Sheets("Blad1").Name = Value.Cells("A1")
End Sub

Probleem is dat nu de naam van je tabblad niet meer "Blad1" is, en deze macro de volgende keer een foutmelding geeft.

Je moet dus een macro schrijven met een InputBox, die vraagt welke naam je wenst voor cel A1 (en het tabblad) om de nieuwe waarde op te vragen.

Zoiets ongeveer:

Code: [Selecteer]

Sub Macro1()
 
 Range("A1").Value = InputBox("voer een naam in voor cel A1", "Tabblad Naam Wijzigen", 1)
 On Error Resume Next
 ActiveSheet.Select
 ActiveSheet.Name = Range("A1").Value

End Sub

Deze macro werkt zeker in een module.
Je zal de macro ook moeten activeren met bvb een knop.

Helpt dit?
PS: er zit een voorbeeldje in bijlage

SoftAid

RedHead · « **Reactie #2 Gepost op:** 09 januari 2012, 21:55:30 »

Ik heb zo 't nare idee dat de TS een verwijzing in een formule wil hebben... Dus dat de waarde van cel A1 in de formule de naam van de sheet vertegenwoordigt. In dat geval heb je de functie INDIRECT nodig.

Groet, Leo

SoftAid · « **Reactie #3 Gepost op:** 09 januari 2012, 23:08:11 »

Ook gegroet, Leo

blij je nog eens onder ons te hebben. Beste wensen voor het nieuwe jaar.

Tja, onze vriend heeft nog niet gereageerd op mijn voorstel, maar hij sprak zelf van " in de programmacode" op zoek te zijn geweest.

INDIRECT: "Geeft als resultaat een verwijzing aangegeven door een tekstwaarde. Dat zegt mij niet veel

.

Systaxis: INDIRECT(verw_tekst;A1)

Citaat

verw_tekst is een verwijzing naar een cel die een A1-verwijzing, een R1K1-verwijzing, een naam gedefinieerd als een verwijzing of een verwijzing naar een cel als een tekenreeks bevat. Als verw_tekst geen geldige celverwijzing is, geeft INDIRECT de foutwaarde #VERW! als resultaat.

Alle waarden voor verw_tekst zijn verwijzigingen naar cellen. Je kan

Code: [Selecteer]

=ActiveSheet.Name niet in een cel gebruiken, want dat is een VBA- ?? statement?? denk ik...

Trouwens, TS wil dat de tekenreeks, ingegeven in Cel A1 wordt weergegeven als ActiveSheet.Name
Dat is dus omgekeerd en volgens mijn klein verstand niet te realiseren behalve via VBA

Ik hoor het graag als ik het mis heb.

Hartelijke groeten,

Theo

SoftAid

RedHead · « **Reactie #4 Gepost op:** 10 januari 2012, 21:07:52 »

Ook hallo naar jou en zekers de beste wensen nog!

Ik heb m'n 'basis' echt niet verlaten hoor, want ik kijk zeer regelmatig of er hier nog iets te beantwoorden is. Helaas is er een helper met de nickname 'SoftAid' die alle vragen weg kaapt met het geven van de juiste oplossingen. En tja... dat blijft er voor sloebers zoals ik niet zoveel meer over hè?

De functie INDERECT is heel krachtig, máár óók héél zwáár! Een complete sheet met deze functie zal je echt een vertraagd beeld geven. Toch alleszins waard om 'm te gebruiken.
Een kleine uitleg. Stel dat je een workbook hebt met meerdere sheets met de namen Sheet1, Sheet2, Sheet3, enz.. Op Sheet1 staat in cel A1 de tekst 'Sheet2' (zonder de quotes!). Op sheet2 en verder staat in het bereik A1:A6 een reeks getallen. Stel je dan voor dat dat bereik altijd gelijk is voor alle sheets die je in dat workbook hebt, maar dat je op variabel niveau de naam van de sheet wilt opgeven en het bereik op die opgegeven sheet opgeteld wilt zien. In cel B1 van Sheet1 zet je dan de formule

Code: [Selecteer]

[English]	=SUM(INDIRECT(A1&"!A1:A6"))

[Dutch] 	=SOM(INDIRECT(A1&"!A1:A6"))

...en warempel... De tekstwaarde van Cel A1 wordt nu geaccepteerd in de SUM-functie. Als je nu bijvoorbeeld de som van de 3e sheet zou willen zien, hoef je alleen die 'Sheet2' in cel A1 te veranderen in 'Sheet3' en voila....

Is deze uitleg te volgen?

Groet, Leo

SoftAid · « **Reactie #5 Gepost op:** 11 januari 2012, 20:29:55 »

Hallo Leo,

als ik eerlijk mag zijn, ... nee, veel zie ik niet in die formule (-ring).

Maar dat komt ook door mijn gebrekkige kennis van Excel, en het feit dat ik meer "practisch" ingesteld ben. Ik moet een formule(set) zien werken, ik kan niet verder kijken dan mijn neus lang is. Als ik beetje bij beetje een Sub() kan opbouwen, dan begrijp ik het wel. Als ik het werk van iemand anders bekijk, dan zie ik de verbanden niet. Ik ben meer een "doe"-mens. Hypothetische stellingen zijn voor mij niet weggelegd

Sorry, maar zo is het nu eenmaal. De een is goed met zijn hersenen, de andere is goed met zijn handen...

Toch bedankt voor de inbreng, en ik zal trachten dit in de toekomst te gebruiken.

Met héél véél groeten

Theo

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics