CIO Premium Job & Karriere Eksperten IT-Kurser Events Søg
Cookie ikon
jisch Mester
22. september 2019 - 08:25 Der er 11 kommentarer og
6 løsninger

Titel liinje

Er der en funktion i Excel (365), der kan vise indholdet af titel linjen - f.eks. i celle A1?
xl-Enthusiast Ekspert
22. september 2019 - 08:51 #1
Hvad mener du præcist med titellinjen?
Dan Elgaard Ekspert
22. september 2019 - 09:24 #2
Nej, men det er uhyre let selv, at lave en sådan funktion.
Men, det kommer lidt an på, hvilke 'Titlel' du taler om???
jisch Mester
22. september 2019 - 09:45 #3
>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".
jisch Mester
22. september 2019 - 10:23 #4
Dan Elgaard bragte mig på sporet - Tak. Jeg har skrevet denne funktion i VBA

Function Titel() As String
  Application.Volatile True
  A$ = ""
  If ActiveWorkbook.Saved Then A$ = " - Gemt"
  Titel = Application.Caption + A$
End Function

Desværre - jeg får titlen fint med =Titel(), men det fungerer tilsyneladende ikke med "Gemt". Er der et forslag?
Jan K Ekspert
22. september 2019 - 10:47 #5
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.
Dan Elgaard Ekspert
22. september 2019 - 11:51 #6
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 :-)
Dan Elgaard Ekspert
22. september 2019 - 12:00 #7
Forøvrigt, hvis du bare vil have filnavnet stående i en celle, kan du bare benytte denne formel:

http://www.EXCELGAARD.dk/Bib/Fil%20Formler/Filnavn/
store-morten Ekspert
22. september 2019 - 12:20 #8
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.
Jan K Ekspert
22. september 2019 - 13:18 #9
#8 Problemet med dit forslag er, at den godt nok viser om filen har en sti, men ikke om der er sket ændringer siden der blev gemt sidst.
store-morten Ekspert
22. september 2019 - 13:24 #10
#9 Er det det der spørges efter?
Jan K Ekspert
22. september 2019 - 13:44 #11
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.
store-morten Ekspert
22. september 2019 - 13:51 #12
Så kan han måske bruge: =Filnavn(8)
Som vil vise sidst gemt, som f.eks.: 22-09-19 13:15:42
Jan K Ekspert
22. september 2019 - 14:18 #13
Måske :-)
jisch Mester
22. september 2019 - 18:31 #14
Tak til alle - lukker spørgsmålet.
store-morten Ekspert
22. september 2019 - 19:01 #15
Hvilken løsning kunne du bruge?
store-morten Ekspert
22. september 2019 - 19:06 #16
I tillæg til #8 kan du prøve em kombination:

=Filnavn(1) & TEKST(Filnavn(8);" DD-MM-ÅÅ TT:MM:SS")
jisch Mester
23. september 2019 - 07:35 #17
>#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.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Pivot-tabel: kan man undgå beregninger i data og blot vise værdier i flere kolonner? Af LisserB i Excel 2 I går 14:11 I går 15:32
Beregn tillægs timer seperat Af Jonas Bøje Olsen i Excel 10 I går 11:12 I går 13:12
Måned som tal Af CHC i Excel 6 I går 08:37 I går 16:45
Låse celle når den er udfyldt Af Butterfly i Excel 3 02/12/202014:50 I går 09:55
Fil format problemer? Af Newbie i Excel 5 02/12/202013:02 I går 11:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:01 Ingen reaktion eller forkert reaktion Af ENS i Word
I går 20:59 Forskel på 5G og "almindelig" Af Ikke-ekspert i Routere & Switches
I går 20:27 Hostname oprettelse Af IbA i Andet netværk
I går 20:01 Compilerfejl med Arduinos IDE Af KurtG i Programmeringsværktøjer
I går 18:35 Automatiseret action baseret på indgående email Af dobbel_mango i Andet programmering
White papers
Flere white papers »


Premium
Test: Huaweis Matebook X er særlig laptop med en svaghed, som du skal være opmærksom på
Huawei beviser endnu en gang, at de sagtens kan mingle sig med de bedste pc-producenter. Men alligevel skyder selskabet lidt ved siden af, med sin nyeste maskine.
Læs mere »
"Jeg tror aldrig nogensinde, at vi kommer til at sælge en on premise-licens igen"
Danske virksomheder skal logge meget mere: Sådan gør du
Microsoft retter ind efter hård kritik: Ændrer omstridt overvågningsværktøj i Office 365
Se alle »
Computerworld
Bitcoinen nåede lige at kulminere igen – men så kom krakket
Der blev sat en ny rekord for bitcoinens værdi i år – men godt 24 timer efter blev der høvlet næsten 20.000 kroner af den.
Læs mere »
Alka lancerer eget mobilselskab - trykker priserne helt i bund: "For os handler det ikke om at tjene penge"
TDC melder klar med 5G i hele Danmark: Skruer gevaldigt op for hastighed på 4G-nettet
Kinesisk navigations-system giver baghjul til det amerikanske GPS-system få måneder efter lancering
Se alle »
CIO
Podcast: Her er seks gode råd om ledelse og digitalisering fra danske top-CIO'er
The Digital Edge: Vi har talt med 17 af Danmarks dygtigste digitale ledere - og samlet deres seks bedste råd om digitalisering og ledelse. Få alle rådene på 26 minutter i denne episode af podcasten The Digital Edge.
Læs mere »
Podcast: Hos Viking Life-Saving Equipment er it gået fra at være backend til at være noget, som kunderne spørger aktivt efter
Se alle »
Job & Karriere
Se Waoos forklaring: Derfor har selskabet fyret topchef Jørgen Stensgaard med omgående virkning
Waaos bestyrelse opsiger fiberselskabets topchef, Jørgen Stensgaard, der fratræder med omgående virkning. Se hele forklaringen fra Waao her.
Læs mere »
Her er Danmarks fem bedste CIO'er lige nu: Disse fem top-CIO'er er nomineret til titlen som Årets CIO 2020
Her er de mest eftertragtede danske it-folk : "Folk får så mange henvendelser, at de må slette deres profil på LinkedIn"
Det nye MitID er et tigerspring for bedre cybersikkerhed
Se alle »
White paper
Gratis whitepaper: Hvad er EDI, og hvordan kan det styrke min forretning?
Overvejer du EDI, og ønsker du at undersøge, om EDI er den rette investering for din virksomhed? Har en af dine kunder eller leverandører for nyligt bedt dig om at udveksle elektroniske dokumenter (EDI)? Så hent dette whitepaper og få et overblik over, hvad EDI er, og hvilke fordele producenter og grossister som dig kan se frem til, når du investerer i EDI til din forretning.
Læs mere »
Sådan sikrer du hovednøglen til jeres data
Optimér produktiviteten og lad din printer følge med ud i skyen
Sådan outsourcer du effektivt – og undgår fælderne
Se alle »