Reference: Arknavn??

Du tilføjer følgende VBA kode til et kodemodul.

Function SheetName()
\'Bruges i en celle =SheetName() til at hente arknavnet ind i cellen.
    Application.Volatile
    SheetName = Application.Caller.Parent.Name
End Function

I en celle skriver du =ArkNavn()

Det virker :-)

Følgende formel returnerer arknavn uden brug af kode:

=CELLE(\"filnavn\")

=CELLE(\"filnavn\") returnerer også hele filsti\'en mv.

Ja, men jeg da godt konstruere en formel uden brug af lang VBA-kode, som KUN returnerer arknavnet, hvis det er det d-warma ønsker.

Prøver igen:

Ja, men jeg kan da godt konstruere en formel uden brug af lang VBA-kode, som KUN returnerer arknavnet, hvis det er det d-warma ønsker.

Du har ret, det kan man godt, som f.eks. denne her:

=MIDT(CELLE(\"filnavn\");FIND(\"]\";CELLE(\"filnavn\");1)+1;LÆNGDE(CELLE(\"filnavn\")))

Jep! Man kan faktisk returnere lige hvad man ønsker af stien!

Tak begge 2, i må gerne diskuttere videre herinde hvis i har lyst...hvis der kommer noget brugbart op skal jeg nok give point...hehe..

Så vil jeg også være med. Jeg konstruerede denne formel til et tidligere spg.

=HØJRE(CELLE(\"filnavn\");LÆNGDE(CELLE(\"filnavn\"))-FIND(\"]\";CELLE(\"filnavn\")))

Denne vil også returnere arkets navn.

ASKIMS

Jamen jeg kan da også.
Den version jeg har liggende ser sådan ud:

=MID(CELL(\"filename\");FIND(\"]\";CELL(\"filename\"))+1;LEN(CELL(\"filename\"))-FIND(\"]\";CELL(\"filename\")))

Formlen =CELLE(\"filnavn\") i alle afskygninger er desværre ikke korrekt!

Prøv at skrive formlen i Ark1. Gå derefter ind i Ark2 og skriv et eller andet og gå så tilbage til Ark1 og tjek resultatet ......