Hyperlinks i regneark

Hej Steen

Hvis du navngiver cellen, kan du styre det.

maker den celle, hvor hyberlinken skal pege på, oppe i øverste venstre hjørne af arket til venstre for formelleinien, kan du se cellens nr.

klik ind der og skriv et navn, det må ikke starte med tal og ikke indeholde mellemrum.
når du har skrevet navnet trykker du på enter tasten, så er navnet lavet.

du kan tjekke ved at klikke på pilen deroppe.

Hvis du så navngiver er nyt ark 'Forside'

indsætter du denne makro i et modul og kører den

ret selv kolonnen den skal skrive i.

med hensyn til navngivningen af celler, vil det være godt i dette tilfælde, at skrive er navn der hentyder til indholdet.

Public Sub IndsætHyberlink()
Worksheets("Forside").Activate ' finder navngivne områder i mappen
Set nms = ActiveWorkbook.Names
Sheets("Forside").Select
For R = 1 To nms.Count
  ActiveSheet.Cells(R + 1, 7).Select '---- skriver fra Celle G2 ----
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        nms(R).Name
    Next
End Sub

Jeg kan ikke lige se det kan lade sig gøre.

Har leget med at indsætte en formel som f.eks.
CELLE("adresse";FORSKYDNING(A1;6;0;1;1))
i hyperlink referencen, men uden held.

Det kan selvfølgelig laves således, at du har en makro, som gendanner dine hyperliinks.
Avanceret, kan der laves makroer, som reagerer på indsættelse af rækker og kolonner, og så automatisk opdaterer dine hyperlinks.
Men der er måske meget at gøre ud af det eller...

hmm, markroen virker vist ikke helt, den skifter ikke side, men makerer bare på Forsiden.

Arbejder videre

Public Sub IndsætHyberlink()
Worksheets("Forside").Activate ' finder navngivne områder i mappen
Set nms = ActiveWorkbook.Names
For R = 1 To nms.Count
  Sheets("Forside").Cells(R + 1, 7).Select '---- skriver fra Celle G2 ----
    Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        nms(R).Name
    Next
End Sub

virker vist nu

Steen du kan også navngive et helt område, så er de markeret, når man kommer derover med hyperlink.

-->Kabbak. Du kender jo projektmappen fra sidst. Det der skal gøres er i de enkelte regneark (CYP Grupper, 2B6 etc) er der en kolonne der indeholder undergrupper af CYP gruppen - ved at klikke på et hyperlink skulle man gerne bringes hen til aktuelle stof i nævnte CYP undergruppe (2B6, 2C8 etc).
Steen

Det kan gøres helt uden makroer :-)

=HYPERLINK("#A9";"HyperlinkText")
=HYPERLINK("#"&CELLE("adresse",A9);"HyperlinkText")
=HYPERLINK("#"&CELLE("adresse";Ark1!A9);"HyperlinkText")
=HYPERLINK("#"&CELLE("adresse";'Mit ark'!A9);"HyperlinkText")

Det ser spændende ud flemmingdahl.
Mener du at en af ovenstående skal placeres i det felt der skal "føre" en til hyperlinket? Hvilken af ovenstående skal anvendes.

Nej - det er en formel, som du blot placerer i en celle, som danner et hyperlink

Hyperlinks kan dannes på to måder!

Og adressen til hyperlinket er inde i ( )???

eks. =HYPERLINK("#"&CELLE("adresse";Ark1!A9);"HyperlinkText")
Ark1!A9 (den celle du vil hoppe til)
HyperlinkText (den tekst du vil vise)

resten skal være som det er!

Ok - det skal prøves. Tak skal du ha'