Avatar billede swamboo Seniormester
21. november 2003 - 22:50 Der er 3 kommentarer og
1 løsning

Link i vba løkke

Hej experter

Jeg har arry'en data(i,15) den indeholder f.eks. $a$22

Den vil jeg gerne have udskrevet som et link der henviser til "Hoved Ark", i den pågældende celle (a22 i eks.)

Jeg tror jeg har brug for denne start:
activecell.offset(i,3).  ???

Hvordan får jeg det til at virke??
Avatar billede kabbak Professor
21. november 2003 - 23:50 #1
Public Sub Test_Hyper()
Dim Rng As Variant
  Set Rng = Range("A15:A25")
  For I = 1 To Rng.Rows.Count
    a = Rng(I, 1).Address
  ActiveSheet.Hyperlinks.Add Anchor:=Range(a), Address:="", SubAddress:= _
        "'Hoved Ark'!A1", TextToDisplay:="Hoved Ark"
  Next

End Sub
Avatar billede swamboo Seniormester
23. november 2003 - 13:01 #2
Tja, det var nu slet ikke sådan jeg skulle have den til at virke, men pga. dit eksempel fik jeg min egen til at virke, og fattede fidusen med links-funktionen, så smid et svar så du kan få nogle point!!
Jeg TAKKER!!
Avatar billede kabbak Professor
23. november 2003 - 18:05 #3
ok, et svar
Avatar billede swamboo Seniormester
24. november 2003 - 09:25 #4
Tak igen!!!
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