emn macro eller

Følgende makro opretter en hyperlink i den aktive celle til adressen i cellen til højre for:

Sub Macro1()
dim Celle as cell
for each celle in selection
activesheet.Hyperlinks.Add Anchor:=celle, Address:=Celle.Offset(0, 1).Value 
End Sub

Hvis du har en hel række celler kan du mærke rækken med navne op og køre følgende:

Sub Macro2()
Dim Celle As Range
For Each Celle In Selection
ActiveSheet.Hyperlinks.Add Anchor:=Celle, Address:=Celle.Offset(0, 1).Value
Next Celle
End Sub


Svarer dette på dit spørgsmål?

nerøs

prova detta:

Sub hyper()
    Range("A1").Select
    While (ActiveCell.Value <> "")
        ActiveCell.FormulaR1C1 = "=HYPERLINK(""http://""&RC[1]," + Chr(34) + ActiveCell.FormulaR1C1 + Chr(34) + ")"
        Selection.Offset(1, 0).Select
    Wend
    Columns("B:B").Select
    Selection.EntireColumn.Hidden = True
    Range("A1").Select
End Sub

>nerøs
>Svarer dette på dit spørgsmål?
jeps
 

Den sidste fungerer -

Lige hvad jeg havde brug for.

/vh
Aksel

Den første var også noget ævl, der skulle have stået:

Sub Macro1()
activesheet.Hyperlinks.Add Anchor:=activecell, Address:=activecell.Offset(0, 1).Value 
End Sub

VH Søren