>Xl-Enthusiast og Dan Elgaard: Tak for svar. Den Titel linje jeg tænker på er øverste linje når jeg aktiverer et regneark. Et nyt regneark viser Titel linjen "Mappe 1 - Excel".
Problemet er nok, at hver gang du afprøver funktionen, laver du en rettelse, og så er den faktisk ikke gemt.
Application.Volatile har kun betydning, når der udføres en beregning i regnearket, ikke når det gemmes, og hver gang du laver en beregning, er denne ikke gemt. Derfor.
Din funktion giver overskriften på selve Excel applikationen. Er det ikke Workbook navnet, som du er på udkig efter?
Og, hvis du har funktionen i brug i flere åbne Workbook går det også galt, da du tester på den aktive Workbook, og ikke den Workbook, hvorfor funktionen er kaldt.
Sidst, men ikke mindst, vil funktionen aldrig kunne tilføre 'Gemt', hvis der er fortaget blot en enkelt genberegning - dermed er regnearket jo ikke gemt efter genberegningen :-) Og, her går det galt med selve funktionen! For gemmer du regnearket, skal funktionen jo ændre sig til 'Gemt'. Men, for at kunne gøre dette, skal funktionen jo genberegne :-) Og, dermed bliver 'Gemt' ændret tilbage igen - for efter den genberegning, er regnearket jo igen ikke gemt :-)
Jeg ved, hvad din ide er, men det kommer aldrig til, at virke :-)
Når du bruger en ´Funktion´ vil filen så ikke altid være gemt?
Du kan teste om filen har en sti.
If ActiveWorkbook.Path <> "" Then A$ = " - Gemt"
Prøv:
Function Filnavn(art) Application.Volatile
If ActiveWorkbook.Path <> "" Then A$ = " - Gemt"
Select Case art Case Is = 1 Filnavn = Application.Caption + A$ Case Is = 2 Filnavn = ActiveWorkbook.Name Case Is = 3 Filnavn = ActiveWorkbook.Path Case Is = 4 Filnavn = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name Case Is = 5 Filnavn = Range("a1").Worksheet.Name Case Is = 6 Filnavn = ActiveWorkbook.Name & "!" & Range("a1").Worksheet.Name Case Is = 7 Filnavn = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "!" & Range("a1").Worksheet.Name Case Is = 8 Filnavn = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") Case Else Filnavn = CVErr(xlErrNA) End Select End Function
Og formlen: =Filnavn(1) til =Filnavn(8)
=Filnavn(1) vil vise: "Filnavn" - Excel eller "Filnavn" - Excel - Gemt
=Filnavn(8) skal formateres som: Dato og klokkeslet.
Da der var brugt Application.Volatile og ActiveWorkbook.Saved opfattede jeg det som om, OP ønskede, at han i cellen skulle kunne se om mappen var gemt eller ikke gemt i forbindelse med en redigering.
>#15: Faktisk ingen løsning. Mit udgangspunkt som beskrevet i #4 var at se titlen (Caption) OGSÅ når Workbook er gemt. Dette har #5 og #6 så glimrende beskrevet IKKE kan lade sig gøre, da funktionen udløser en ændring i arket.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
