sheetname

[arienlans]

ik gebruikte de formule

=SHEETNAME(G7) en dan in G7 het nummer van het werkblad.

Dit werkt niet meer in Excel 2010

Dit gebruikte ik om boven aan de zetten om vervolgens een verwijzing met indirect te maken om in de tabbladen te zoeken.

Wekelijk komt er een tabblad bij.

Het was een mooie manier om niet het tabblad naam over te tikken en even slepen naar rechts en ik was klaar.

is er nog een makkelijke manier hier voor?

Ariën

 

[Thankyou]

Volgens mij hoort er een stukje VBA bij, ik heb even bij Ozgrid gekeken en kom dit stukje tegen voor je:

Function SheetName(rCell As Range, Optional UseAsRef As Boolean) As String

    Application.Volatile

        If UseAsRef = True Then

            SheetName = "'" & rCell.Parent.Name & "'!"

        Else

            SheetName = rCell.Parent.Name

        End If

End Function

Succes,

 

[arienlans]

ik heb alles ingevoegd maar de verwijzing werkt niet.

ik wil graag dat ik het nummer van het tabblad invoeren, zodat het bijbehorende tabblad weergegeven word.

ik heb mijn bestand toegevoegd

Bekijk bijlage tabnamen.xlsm

 

[oeldere]

kijk eens of je hier mee geholpen bent.

de codes in dit bestand komen van Warm Bakkertje en Ginger.

 

[arienlans]

De code van Warm Bakkertje werkt prima, alleen ik wil de sheetnamen horizontaal hebben staan in plaats van verticaal.

Private Sub Worksheet_Activate()
    With Cells(4, 4)
        .CurrentRegion.ClearContents
        For Each sh In Sheets
        c0 = c0 & sh.Name & "|"
        Next
    .Resize(Sheets.Count - 1) = WorksheetFunction.Transpose(Split(c0, "|"))
    End With
End Sub

Arien

 

[WHER]

Vervang in bovenstaande macro deze regel:

.Resize(Sheets.Count - 1) = WorksheetFunction.Transpose(Split(c0, "|"))

eens door volgende regel:

.Resize(1, Sheets.Count) = Split(c0, "|")

 

[Warme bakkertje]

Wijzig ook onderstaande in de cel waarin de lijst moet beginnen.

Cells(4, 4)

 

[arienlans]

Dit is wat ik al een tijdje zocht

Ik ben weer wat wijzer geworden in VBA.

Dank jullie wel.

Ariën

 

[arienlans]

Een beetje raar??

als ik hem test in een leeg werkblad dan doet die het goed.
als ik hem in mijn werkblad zet met alle gegevens dan doet hij het laatste tabblad niet?
wel heb ik dit zinnnetje eruit gehaald

.CurrentRegion.ClearContents

Arien

 

[oeldere]

plaats je totale gebruikte code eens (of plaats je bestand, ontdaan van gevoelige info).

dan kan er door de forumleden ook gerichter worden gekeken.

P.s. ik zie dat je de vraag op opgelost hebt gezet.

Is de vraag ook opgelost?

zo nee, zet dan even de status terug s.v.p.

 

[arienlans]

bedankt voor de tip.

ik heb alles weer kaal gemaakt en daarna weer alles opgebouwt en de fout is verdwenen!
ik heb hem niet gevonden maar het is wel opgelost