Indsæt filnavn i celle

Prøv dette

=VENSTRE(MIDT(CELLE("filnavn");FIND("[";CELLE("filnavn"))+1;FIND("]";CELLE("filnavn"))-FIND("[";CELLE("filnavn"))-1);LÆNGDE(MIDT(CELLE("filnavn");FIND("[";CELLE("filnavn"))+1;FIND("]";CELLE("filnavn"))-FIND("[";CELLE("filnavn"))-1))-5)

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

=Venstre(din kode;Længde(din kode)-5)

eller

=Venstre(din kode;Længde(din kode)-Find(".";din kode)+1)

Hej Daffodil, Jan K og Jan Hansen

Tak for jeres hurtige svar.

@Jan K: Jeg kan ikke lige få dit bud til at virke!

Vh CHC

OK. Virker fint hos mig.  Nu ville du gerne undgå VBA. Ellers kan du bruge denne til at indsætte flere forskellige informationer om projektmappen.

Function Filnavn(art)
    Application.Volatile
    Dim Punktum As Integer
    Punktum = InStrRev(ActiveWorkbook.Name, ".")

'Alle funktioner i denne makro virker på den aktive projektmappe

    If ActiveWorkbook.Path <> "" Then A$ = " - Gemt"
 
    Select Case art
        Case Is = 1 'Indsæt teksten fra Titellinjen i Excel og tilføj Gemt, fx Jan - Excel - Gemt
            Filnavn = Application.Caption + A$
        Case Is = 2 'Indsæt navnet på projektmappen
            Filnavn = ActiveWorkbook.Name
        Case Is = 3 ' Indsæt filnavnet på den aktive projektmappe uden filtype
            Filnavn = Mid(ActiveWorkbook.Name, 1, Punktum - 1)
        Case Is = 4 'Indsæt filtypen uden filnavn
            Filnavn = Mid(ActiveWorkbook.Name, Punktum + 1, Len(ActiveWorkbook.Name))
        Case Is = 5 'Indsæt stien uden filnavn
            Filnavn = ActiveWorkbook.Path
        Case Is = 6 'Indsæt sti og filnavn
            Filnavn = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
        Case Is = 7 'Indsæt arknavn
            Filnavn = Range("a1").Worksheet.Name
        Case Is = 8 'Indsæt fil- og arknavn
            Filnavn = ActiveWorkbook.Name & "!" & Range("a1").Worksheet.Name
        Case Is = 9 'Indsæt sti, fil- og arknavn
            Filnavn = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "!" & Range("a1").Worksheet.Name
        Case Is = 10 'Indsæt tidspunktet for sidste gemning af filen
            Filnavn = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
        Case Else
            Filnavn = CVErr(xlErrNA)
    End Select
End Function

Hej Jan K

Din tidligere løsning virker, prøvede lige igen, tak.

Hvordan kører jeg VBA'en - er lidt på bar bund?

Vh CHC

Du indsætter koden i et modulark. Derefter kan du bruge den på samme måde som alle andre funktioner. For at vise arknavnet uden filtype skriver du bare =filnavn(4) i den celle, hvor du vil have resultatet.

Vrøvl, =filnavn(3) selvfølgelig.