Avatar billede janvogt Praktikant
12. april 2007 - 16:08 Der er 12 kommentarer og
1 løsning

Hyperlinks i Excel

I et Excelark danner jeg nogle hyperlinks udfra data i mit ark.
Nogle af linksene er imidlertid "døde", hvor jeg så får en fejlmeddelelse: "Kan ikke åbne den angivne fil".

Det ville derfor være smart, hvis dette link slet ikke blev vist.
Er det på nogen måde muligt at vise en blank celle, hvis hyperlinket er invalid?

Der findes ikke nogen regel i selve arket, som kan definere det. Den SKAL ned og "prøve" linket for at konstatere, om den er invalid.
Avatar billede supertekst Ekspert
12. april 2007 - 17:59 #1
Hvad henviser Hyperlink's til - samme XLSmappe - andre XLSmapper - eller ??
Avatar billede supertekst Ekspert
13. april 2007 - 10:34 #2
Sub TestHyperlinks()
Dim hl As Hyperlink, ok As Boolean

    For Each hl In ActiveSheet.Hyperlinks
        cadr = hl.Range.Address
       
        ok = True
        On Error GoTo noSucces
        hl.Follow
       
        If ok = True Then
            ActiveWorkbook.Close
            Range(cadr).Font.ColorIndex = 5    'blå
        End If
    Next
    Exit Sub
   
noSucces:
    Range(cadr).Font.ColorIndex = 3            'rød
    ok = False
    Resume Next
End Sub
Avatar billede janvogt Praktikant
13. april 2007 - 11:20 #3
Beklager ventetiden ....
Hyperlinksene henviser til andre mapper. Med mapper mener jeg fil-mapper og ikke nødvendigvis Excel-filer.
Avatar billede janvogt Praktikant
13. april 2007 - 11:36 #4
Umiddelbart kan jeg ikke få koden til at virke.
Den kører godt nok igennem, men alle hyperlinks forbliver blå - også de invalide.
Avatar billede janvogt Praktikant
13. april 2007 - 12:24 #5
Et eksempel på et hyperlink ser sådan ud:
=HYPERLINK(SAMMENKÆDNING("File:////w:/xxxxxx/teknisk_dokumentation/datasider/";B23;".xls");B23)
Avatar billede supertekst Ekspert
13. april 2007 - 17:34 #6
Jeg har kun testet links til andre Excel-mapper...
Avatar billede janvogt Praktikant
16. april 2007 - 08:02 #7
Jeg kan nu heller ikke få den til at virke på xls-mapper.
Avatar billede supertekst Ekspert
16. april 2007 - 10:22 #8
Har prøvet at indsætte nedenstående i mit test-ark - derefter er "TestHyperLinks()" blev eksekveret - cellen bliver rød:

=HYPERLINK(SAMMENKÆDNING("File:////w:/xxxxxx/teknisk_dokumentation/datasider/";B23;".xls");B23)
Avatar billede janvogt Praktikant
16. april 2007 - 15:29 #9
Hmm, virker ikke her ....
Avatar billede supertekst Ekspert
16. april 2007 - 15:38 #10
Hvilken Office-version anvender du? - jeg har 2003
Avatar billede janvogt Praktikant
16. april 2007 - 15:41 #11
samme her - SP2
Avatar billede gider_ikke_mere Nybegynder
07. september 2007 - 09:05 #12
Kan du ikke bare lave en makro der ved opstart checker om filerne eksisterer?
Avatar billede janvogt Praktikant
07. september 2007 - 09:31 #13
Jeg fik det aldrig helt til at virke, men nu er spørgsmålet er ikke aktuelt længere, men ellers tak. Jeg lukker det.
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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.

Du kan også logge ind via nedenstående tjenester