werkbladnaam in formules

[RobZegers]

Ik heb even een vraagje mbt vert.zoeken waarbij de naam in van het werkblad in de formule (als formule) staat.

Daarnaast nog de vraag werkbladnaam automatisch aanpassen

Ik heb een voorbeeld document erbij gedaan.
In het blad opdrachten kun je zien wat ik bedoel te vragen....
De vragen zijn misschien niet duidelijk gesteld, maar dat hoor ik dan wel.
Wie wil m'n sheet bewerken en opnieuw terugposten...

Alvast bedankt :dBekijk bijlage test.xls

 

[Cobbe]

Zou het zo werken?

[COLOR="darkred"]=VERT.ZOEKEN(D$3;INDIRECT(""&$C4&"!$A$5:$B$10");2)[/COLOR]

Cobbe

 

[Thankyou]

Voor in D4:

=VERT.ZOEKEN(D$3;INDIRECT($C4&"!$A$5:$B$10");2;ONWAAR)

Ik heb hem "sleepbaar" gemaakt dus doortrekken met de vulgreep naar beneden en daarna naar rechts.

Succes,

 

[RobZegers]

Tnx beide

dat het met indirect moest dacht ik al wel.
Maar hoe werkt de formule indirect dan? hoe lees ik:
($C4&"!$A$5:$B$10")

Daarnaast de vraag of je ook de andere vragen gezien hebt

 

[Thankyou]

Ik kom nog 2 vragen tegen:

1. Werkblad namen aanpassen Gaat via VBA en mijn kennis is hierin 0
2. Wie wil het voorbeeld bestand aanpassen en retouneren Met de aangedragen voorbeelden kan je zelf het bestandje aanpassen

Succes,

 

[Cobbe]

Gebruik deze formule in A1:

=RECHTS(CEL("bestandsnaam";A1);LENGTE(CEL("bestandsnaam";A1))-VIND.SPEC("]";CEL("bestandsnaam";A1)))

Deze werkt enkel als uw bestand al opgeslagen is.

Cobbe

 

[RobZegers]

Gebruik deze formule in A1:

=RECHTS(CEL("bestandsnaam";A1);LENGTE(CEL("bestandsnaam";A1))-VIND.SPEC("]";CEL("bestandsnaam";A1)))

Deze werkt enkel als uw bestand al opgeslagen is.

Cobbe

dit werkt ook super... ik kom zo best ver waarvoor dank.

Ik begrijp alleen het indirect nog niet helemaal.

Ik heb een werkblad met de fout erin gemaakt.

vert.zoeken(D$2;INDIRECT(""&$A11&"!$D$809:$W$820");2;ONWAAR)
vert.zoeken(D$2;INDIRECT('MODEL 2011'$D$809:$W$820;2;ONWAAR)

Het werkblad heet dus model 2011.
Formule 1 werkt niet, 2 wel......
wat doe ik nu verkeerd?

De fout zit in de formule indirect maar ik zou even niet weten waar.
Hoe moet ik die formule lezen.

Daarnaast wil ik op het werkblad de naam van de persoon als hyperlink naar het werkblad van de persoon. En andersom. Welke formules maak ik daar dan van?

Hyperlink(cel A1 van werkblad henk;veldnaam henk)

 

[richard1970]

Spatie in tabbladnaam icm INDIRECT

Beste Rob,

De naam van jouw tabblad bevat een spatie. In dat geval moeten er nog twee enkele quotjes om de naam heen komen:

=VERT.ZOEKEN(D$2;INDIRECT(""&[COLOR="red"]"'"&[/COLOR]$A11[COLOR="red"]&"'"[/COLOR]&"!$D$809:$W$820");2;ONWAAR)

Richard

 

[HSV]

Kan iets korter Richard.

=VERT.ZOEKEN(D$2;INDIRECT("[COLOR="red"]'[/COLOR]"&$A11&"[COLOR="red"]'[/COLOR]!$D$809:$W$820");2;0)

 

[sylvester-ponte]

bedoel je zo iets?

in kolom 3 een nieuwe naam invoeren enz....
Bekijk bijlage hyperlinkstest1.xls

groet sylvester

 

[RobZegers]

Beste Rob,

De naam van jouw tabblad bevat een spatie. In dat geval moeten er nog twee enkele quotjes om de naam heen komen:

=VERT.ZOEKEN(D$2;INDIRECT(""&[COLOR="red"]"'"&[/COLOR]$A11[COLOR="red"]&"'"[/COLOR]&"!$D$809:$W$820");2;ONWAAR)

Richard

SUPER!!! Het werkt....
Ik snap alleen niet dat ik een spatie heb..... dat ga ik nog even grondig onderzoeken
Ik heb namelijk op het betreffende werkblad staan = naam werkblad dor de formule:

RECHTS(CEL("bestandsnaam";A1);LENGTE(CEL("bestandsnaam";A1))-VIND.SPEC("]";CEL("bestandsnaam";A1)))

dan heb ik daar staan is A1 van het andere werkblad......
Kan ik er die ook uithalen (waar zit hij dan nu ;-)

Gr
rob

 

[RobZegers]

bedoel je zo iets?

in kolom 3 een nieuwe naam invoeren enz....
Bekijk bijlage 113173

groet sylvester

Ook hier denk ik dat ik dit precies zo bedoel, maar kan dit ook in een formule.

Ik voel me nu echt een zeiksnor en vind alle hulp tot nu toe SUPER!

 

[sylvester-ponte]

hoi Rob

Ook hier denk ik dat ik dit precies zo bedoel, maar kan dit ook in een formule.

zo als eerder in deze topic is gezegd:

een bladnaam aanpassen of een blad automatisch toevoegen kan allen met een macro.

als je dan toch een macro nodig hebt laat deze dan nog wat extra handelingen uit handen nemen.

groet sylvester

is niet helemaal duidelijk wat de macro doet?

Sub NieuwBlad()
    Dim InvulCel As Range, Naan As String 'naam en plaats van het invullen vastleggen
    Set InvulCel = ActiveCell
    Naam = InvulCel.Value
    
    For Each s In Sheets() 'als deze naam al bestaat dan doe niks
        If s.Name = Naam Then Exit Sub
    Next s
    Dim teCoperenBlad As Worksheet  'hier wordt het bald van "henk" als voorbeeld gebruikt voor het nieuwe bald
    Set teCoperenBlad = Sheets("henk")
    
    Dim teCoperenRij As Range   'de formules van rij 4 van blad "totaal" wordt gebruiken voor nieuwe rij
    Set teCoperenRij = Range("totaal!4:4")
    
    Application.EnableEvents = False  ' zo stuurt het programma geen veranderings event
        teCoperenBlad.Copy before:=Sheets("opdrachten") 'hiet wordt het nieuwe blad aan gemaakt
        ActiveSheet.Name = Naam   'nu de naam van het nieuwe blad aanpassen
        Cells(1, 1) = Naam         'naam ook in A1 zetten
        Cells(1, 1).Hyperlinks(1).SubAddress = "totaal!" & InvulCel.Address 'en de Hyperlink toevoegen
        Range("B5:B10").ClearContents ' waarden van "henk" verwijderen
        
        Sheets("totaal").Select 'nu het "totaal" blad bijwerken
        teCoperenRij.Copy Rows(InvulCel.Row) ' de teCopyeren rij wordt gecopyeerd naar de rij van de invulcel
        InvulCel.Value = Naam 'naam aan passen
        InvulCel.Hyperlinks.Delete 'oude hyperlink verwijderen
        InvulCel.Hyperlinks.Add Anchor:=InvulCel, Address:="", SubAddress:=Naam & "!A1" 'nieuwe plaatsen
    Application.EnableEvents = True 'zo nu mogen de events weer door komen
    Application.CutCopyMode = False 'zo wordt de copy mode weer uitgeschakeld
    InvulCel.Offset(1, 0).Select 'op naar de volgende invulplaats
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub  'even kijken of je in de juiste kolom zit
    Target.Select 'we gaan even terug naar de ingevulde cel
    Call NieuwBlad 'blad toevoegen
End Sub

 

[RobZegers]

Hallo hier ben ik te dom voor dat hele macro deel is echt te complex voor een simpele gebruiker als ik....

Ik zoek dus echt naar oplossingen met formules die ik kan leren lezen, zodat ik ze later kan (her) schrijven.
Macro's komt vast ook nog weleens, maar hey Rome is ook niet op 1 dag gebouwd

Gr
Rob