Fanenavn i celle

Lav denne funktion

Function FaneNavn() As String
FaneNavn = ActiveSheet.Name
End Function

Så kan du blot skrive =FaneNavn() i cellen.

=MIDT(CELLE("Filnavn");FIND("]";CELLE("filnavn"))+1;999)

Jeg er ikke meget for at bruge en makro i denne situation, så Bak, du får mine point - Vil du give et "Svar"!

Yes, her er det så :-)

Bak - der var jeg lidt hurtig. Det er det samme navn der kommer på alle arkene - det sidste hvorpå jeg har indlagt formlen!

Hvad går der galt?

sorry, jeg var også lidt for hurtig, mangler nemlig referencen (bem: A1)

=MIDT(CELLE("Filnavn";A1);FIND("]";CELLE("filnavn";A1))+1;999)

Det var bedre. Kan du forklarer mig opbygningen af funktionen? Jeg forstår den ikke helt!

CELLE("Filnavn",A1) giver hele stien til A1 feks.
C:\Documents and Settings\tbc\My Documents\[myfile.xls]Sheet1

FIND("]";CELLE("filnavn";A1))+1
finder placeringen "]" i ovennævnte streng og lægger 1 til
MIDT(blblbll, 999) tager strengen fra placeringen og til slut
hvilket vil give "Sheet1"