02. maj 2002 - 09:06
Der er
13 kommentarer og 1 løsning
filnavn i celle
Godmorgen exp´er Hvordan får jeg navnet på excelarket til at stå i en celle ?? Chewie
Annonceindlæg fra Kingston Technology
=Celle("filnavn")viser hele stien. Husk atr skrive anførselstegnene. Resultatet er blankt hvis ikke mappen er gemt.
Jeg vil ikke have hele stien .... KUN FILNAVNET
Hvis du kun vil have filnavnet, ikke stien" kan følgende lille fikse ting gøre det: =MIDT(CELLE("filnavn");FIND("[";CELLE("filnavn"))+1;(FIND("]";CELLE("filnavn"))-FIND("[";CELLE("filnavn")))-1)
Er det arknavnet du vil have, kan følægende bruges: =MIDT(CELLE("filnavn");FIND("]";CELLE("filnavn"))+1;LÆNGDE(CELLE("filnavn")))
Slettet bruger
02. maj 2002 - 10:24
#7
Du kunne også smide følgende funktion ind i et modul i arket. ----------------------------------- Function ArkNavn() As String ArkNavn = ActiveWorkbook.Name End Function ----------------------------------- Du kan derefter bruge den som en almindelig funktion i arket.
blackadder >> er den ikke til at generere Akrnavnet, det er jo filnavnet jeg skulle bruge
Slettet bruger
02. maj 2002 - 10:50
#9
I min Excel (XP) returnerer den "Book1.xls" Hvis du vil have hele stien skal du lav een der hedder. Function ArkSti() As String ArkSti = ActiveWorkbook.FullName End Function Funktionen ArkSti returnerer i mit tilfælde "D:\Documents and Settings\Administrator\Desktop\Book1.xls"
Slettet bruger
02. maj 2002 - 11:08
#10
...eller ActiveWorkbook.Path hvis du kun skal bruge stien uden Arknavnet
Blackadder>> du kan blive ved :o) takker mange gange
28. marts 2008 - 08:12
#12
Uh... Gammel tråd, men håber det er iorden jeg "blander" mig...? Jeg ønsker også at få vist filnavnet, men KUN fornavnet. Jeg vil ikke have .xls med... Dvs. istedet for at få vist: test.xls Så skal cellen kun skrive: test Håber der er en der kan hjælpe... pft J
Slettet bruger
28. marts 2008 - 19:25
#13
Denne her burde gøre det. =LEFT(MID(CELL("filename");FIND("[";CELL("filename"))+1;(FIND("]";CELL("filename"))-FIND("[";CELL("filename")))-1);FIND(".";MID(CELL("filename");FIND("[";CELL("filename"))+1;(FIND("]";CELL("filename"))-FIND("[";CELL("filename")))-1);1) - 1)
28. marts 2008 - 20:37
#14
Det kunne han så - 6 år efter :)
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.