hej.

jeg har et excel dokument hvor jeg skal insætte hyperlink i celler hver md.
(ca. 1200 celler)

der er ikke tilfældigvis en der ved hvordan man gøre det nemmer end manuelt? (håber virkelig)

ser nogle lunde sådan ud..
I I = angiver en celle

eks.
I Text I Nr I 1 I 5 I 8 I 9 I 0 I 7 I 9 I 8 I 6 I 4 I 3 I
I Text I Nr I 3 I 4 I 3 I 2 I 3 I 4 I 4 I 3 I 2 I 7 I 8 I
I Text I Nr I 6 I 8 I 5 I 8 I 3 I 9 I 9 I 1 I 2 I 2 I 4 I
I Text I Nr I 8 I 5 I 3 I 4 I 0 I 3 I 3 I 7 I 4 I 3 I 3 I
I Text I Nr I 4 I 7 I 7 I 9 I 5 I 4 I 3 I 4 I 7 I 7 I 6 I
I Text I Nr I 3 I 2 I 3 I 4 I 7 I 6 I 6 I 0 I 0 I 3 I 5 I


hvert tal skal linke til en hjemmeside
alle nr 1 skal linke til en side
alle nr 2 skal linke til en anden
og så videre
det er de sammen tal hver md. de er bare placeret forskeligt fra md. til md.
De fleste tal inden holder 3 tal, eks. 001 - 002 - 123 - 743 og så videre
og der er ca 90-100 forskellige tal resten er genganger


Håber virkelig der er en der kan hjælpe og har en løsning
Mvh Othz.
 

taktak, tror bare jeg gøre noget galt for det virker ikke??

opdaget også at talene er skrevet sådan eks.   '256
hvis det har noget at sige,
jeg har vedhæftet en fil, hvis jeg kunne få dig til at kigge på den


uploads/684/excel_Hyperlink_test_d_26_04_2013.xlsm

rigtig mange tak for hjælpen!!!, du har lige sparet mig for rigtig meget arbejdt fremover.

nu har i et lille tillægs spg.

sættet denne ind sammen med?



Sub xHyper()
For Each c In Selection
If c <> "" Then
If c.Value = "001" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="http://www.google.dk"
If c.Value = "002" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="http://da.wikipedia.org"
If c.Value = "003" Then ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="...indsæt web adr...."
'osv. osv.
End If
Next
End Sub

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWindow.SmallScroll Down:=-78
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("C:C,I:I,J:J,P:P").Select
    Range("P1").Activate
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub