Sheet/Blad - Excel - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2019-10-09 12:26

Jokkmokk

Medlem sedan: 2019-10-09

1 inlägg

Sheet/Blad

Hej, första inlägget här men knappast sista. Är oerhört nygammal i excel, men söker en enkel funktion:

jag vill på ett försättsblad (sheet1) ha en rubrik som heter vad sheet2 heter, under den sheet3, under den sheet4 osv. Jag vill att när jag byter namn på flikarna hänger det med till försättsbladet.

har laborerat lite och får bara fram vad nuvarande sheet heter, eller sheetnummer, men inte texten.

2019-10-10 14:51

anonymous

Medlem sedan: 2020-06-29

0 inlägg

Re: Sheet/Blad

Menar du en vanlig excelformel eller VBA? Jag tor inte att fomrlerna stödjer numrerade Sheetnr.

Men, en variant är att länka till en cell i varje blad och plocka ut bladnamnet med hjälp av CELL("adress"..

=CELL("adress";Blad3!$A$1)

Den uppdateras om namnet på fliken ändras. Tyvär ger den mer än fliknanet så du måste gör ane ganska lång formel för att plocka ut mittenvärdet

=EXTEXT(CELL("adress";Blad3!$A$1);SÖK("]";CELL("adress";Blad3!$A$1))+1;SÖK("!";CELL("adress";Blad3!$A$1))-SÖK("]";CELL("adress";Blad3!$A$1))-1)

ganksa knöligt om du frågar mig.

CELL("Filnamn";). skulle ge en kortare formel eftersom du inte behöver tvätta bort cellreferensen. Men då måste filen vara sparad först. Det borde bli någontng i stil med (ej testat):

=EXTEXT(CELL("Filnamn";Blad3!$A$1);SÖK("]";CELL("Filnamn";Blad3!$A$1)+1;32)

Ett större problem är att en hyperlänk (Ctrl+i) INTE uppdateras om du byter fliknamn. Och då försvinner ju lite av vitsen med försätsbladet.

2019-10-11 10:16

Christian

Medlem sedan: 2015-08-26

1209 inlägg

Re: Sheet/Blad

Om du istället vill ha en VBA lösning:

Denna indexerar i kolumn B från rad 5 och nedåt. Samt lägger på hyperlänkar.

Sub GenerateIndex()

Dim SheetName As String
Dim i As Long: i = 1
Dim sh As Worksheet
Dim rng As Range
Dim ws As Worksheet: Set ws = activesheet

'Ändra Kolumn Här, samt på ytterliggare en rad längre ned.
ws.Range("B5:B30").Clear

'Add the name of the sheet
For Each sh In ThisWorkbook.Sheets
'4an styr radnummer, "B" kolumn
Set rng = ws.Range("B" & 4 + i)
SheetName = sh.Name
rng.Value = SheetName

ActiveSheet.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:= _
"'" & SheetName & "'!A1", TextToDisplay:=i & ". " & SheetName
rng.ClearFormats

i = i + 1
Next sh

End Sub

Sida 1 av 1