Hvordan indsættes filnavnet i en celle i regnearket ?

=MIDT(CELLE("filnavn");FIND("[";CELLE("filnavn"))+1;FIND("]";CELLE("filnavn"))-FIND("[";CELLE("filnavn"))-1)

Mange tak - det var godt nok hurtigt! og det virker! - Kan man også få filnavnet levert uden ".xls"?

en funktion
Public Function Mappenavn()
Mappenavn = ActiveWorkbook.Name
End Function

=MIDT(CELLE("filnavn");FIND("[";CELLE("filnavn"))+1;FIND(".xls";CELLE("filnavn"))-FIND("[";CELLE("filnavn"))-1)

Stærkt!!!!

og her er et svar :-)

hej heerfordt
luk lige spm.

Lukketid.

Hvad gør man hvis ens Excel er engelsk, så genkender den jo ikke de danske ord CELLE og MIDT osv... hvad er den engelske formel til dette trick?

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

Yeah, måske jeg spurgte lidt for tidligt, jeg fandt selv ud af det. Jeg skulle bruge en almindelig sti til filen, og jeg kom frem til følgende:

Henter filens fulde navn:
=MID(CELL("filename");FIND("[";CELL("filename"))+1;FIND("]";CELL("filename"))-FIND("[";CELL("filename"))-1)

Henter filens sti:
=LEFT(CELL("filename");FIND("[";CELL("filename"))-1)

Sammensætter filens sti og navn:
=CONCATENATE(LEFT(CELL("filename");FIND("[";CELL("filename"))-1);MID(CELL("filename");FIND("[";CELL("filename"))+1;FIND("]";CELL("filename"))-FIND("[";CELL("filename"))-1))

Håber det kan hjælpe andre der søger efter lignende :-)

eller i et hug
=SUBSTITUTE(LEFT(CELL("filename");FIND("]";CELL("filename"))-1);"[";"")

Smart :-)

luk