=MIDT(CELLE("mappenavn");FIND("[";CELLE

Prøv denne her (engelsk):

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

På dansk må det være:

=MIDT(CELLE("filnavn";A5);FIND("]";CELLE("filnavne";A5))+1;LÆNGDE(CELLE("filnavn";A5))-FIND("]";CELLE("filnavn";A5)))

Hov undskyld du sagde vist mappenavnet. Jeg tog det for arknavnet.

Mappenavnet er lidt sværere, der er jo flere mapper - eks.
\MSE\KPO\Sektionsoplysninger\Måned for måned\januar 2003\

Er det altid den sidste mappe før selve filnavnet du skal bruge?

ja det er altid det samme sted !

Puha, den er godt nok langhåret ......
Hvis alt skal være i én formel er jeg nået frem til følgende:

=MID(CELL("filename";A5);(FIND("¤";SUBSTITUTE(CELL("filename";A5);"\";"¤";LEN(CELL("filename";A5))-LEN(SUBSTITUTE(CELL("filename";A5);"\";""))-1))+1);LEN(CELL("filename";A5))-(FIND("¤";SUBSTITUTE(CELL("filename";A5);"\";"¤";LEN(CELL("filename";A5))-LEN(SUBSTITUTE(CELL("filename";A5);"\";""))-1))+1)-(LEN(MID(CELL("filename";A5);FIND("[";CELL("filename";A5))+1;FIND("]";CELL("filename";A5))-FIND("[";CELL("filename";A5))-1))+3)-(LEN(MID(CELL("filename";A5);FIND("]";CELL("filename";A5))+1;LEN(CELL("filename";A5))-FIND("]";CELL("filename";A5)))))+1)

Den virker her hos mig.

Dansk oversættelse:

MID = MIDT
CELL = CELLE
"filename" = "filnavn"
LEN = LÆNGDE
SUBSTITUTE = ERSTAT
FIND = FIND

thx

Jeg prøver den lige af i morgen på arbejdet ..... der kommer jeg også med et nyt spm ang. SUMPRODUKT vi skal have udvidet den lidt :o)

Det kan helt sikkert gøres kortere, men det vigtigste må vel være, at det virker ;-)

Jeg tror Substitute er lig med udskift, ikke erstat.
Jeg er forøvrigt kommet frem til er formel lige lang som din :-)

Hurra for array-formler :-)
=MIDT(VENSTRE(CELLE("Filnavn";A1);FIND("[";CELLE("Filnavn";A1))-2);MAKS((MIDT(VENSTRE(CELLE("Filnavn";A1);FIND("[";CELLE("Filnavn";A1))-2);KOLONNE(1:1);1)="\")*KOLONNE(1:1)+1);100)

bak >> jeg prøvede lige din formel først ... fordi Jan´s skal jeg først til at oversætte, men den returnere hele stien

Jeg har lige testet her (efter at have oversat til engelsk) og det virker fint.
Husk at det er en array-formel, der skal afsluttes med CTRL-SHIFT-ENTER og ikke bare ENTER.

=MIDT(CELLE("filnavn";E36);(FIND("¤";ERSTAT(CELLE("filnavn";E36);"\";"¤";LÆNGDE(CELLE("filnavn";E36))-LÆNGDE(ERSTAT(CELLE("filnavn";E36);"\";""))-1))+1);LÆNGDE(CELLE("filnavn";E36))-(FIND("¤";ERSTAT(CELLE("filnavn";E36);"\";"¤";LÆNGDE(CELLE("filnavn";E36))-LÆNGDE(ERSTAT(CELLE("filnavn";E36);"\";""))-1))+1)-(LÆNGDE(MIDT(CELLE("filnavn";E36);FIND("[";CELLE("filnavn";E36))+1;FIND("]";CELLE("filnavn";E36))-FIND("[";CELLE("filnavn";E36))-1))+3)-(LÆNGDE(MIDT(CELLE("filnavn";E36);FIND("]";CELLE("filnavn";E36))+1;LÆNGDE(CELLE("filnavn";E36))-FIND("]";CELLE("filnavn";E36)))))+1)

FEJL "Du har indtastet for få argumenter for denne funktion"

den kommer med denne fejl meddelse

Yes .. nu virker din :o)

Jans formel virker fint her.
prøv at højreklik på en arkfane og vælg indsæt.
her vælger du så Internationalt makroark.
Klip Jans engelske formel ud og indsæt den der.
kopier den så over på dit eget ark. Nu er den blevet oversat til dansk.
erstat så filename med filnavn.

OK så funker den :o)

bak >> smid et svar så deler i pointne !!

Ok, du får også lige en vba-funktion (til XL-2000)

Function Foldernavn()
Dim s
s = Split(ActiveWorkbook.Path, "\")
Foldernavn = s(UBound(s))
End Function

Mange tak for hjælpen :o)

Hvorfor er det lige i bruger Referencen? Det ville da gøre formlen lidt mere læse venlig!

Hvordan ville formlem så se ud ??

I stedet for cell("filename";a5) hedder celle delen =cell("filename").
Jeg har lige undersøgt en lille ting! Hvis du skifter mellem flere ark og opdaterer i et andet ark så får du #VALUE! I ark med formlen, så det var vist ikke der rigtige sted at "spare".

Rigtig set Palle Ib.
Men formlen kan forkortes væsentlig ved at dele den på to celler.

Rigtig, den kan gøres noget kortere, hvis den må stå i to celler.
Men som jeg skriver 16:16:49 i går har jeg tilstræbt at have det hele i én formel (nok mest for udfordringens skyld) :-)