Hyperlink verwijzing in excel

[FrancescoB]

Beste,

Ben op dit moment bezig met een registratiesysteem in excel, hiervoor heb ik (gedeeltelijk zelf, gedeeltelijk van dit forum :d) onderstaand script geschreven:

Sheets("IRR overzicht").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("E4").Select
Sheets("IRR").Select
ActiveWindow.SmallScroll Down:=21
Range("B143").Select
Selection.Copy
Sheets("IRR overzicht").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("R4").Select
Sheets("IRR").Select
Range("F153").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("IRR overzicht").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Rows("4:4").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With

Selection.Font.Bold = True
Selection.Font.Bold = False
Sheets("IRR").Select
ActiveWindow.SmallScroll Down:=-45
Range("G3").Select

With ActiveSheet.Range("D13")
.Value = Mid(.Text, 1, InStr(1, .Text, "-", vbTextCompare) - 1) & _
"-" & _
CStr(CLng(Mid(.Text, InStr(1, .Text, "-", vbTextCompare) + 1) + 1))
End With


End Sub

Hierbij worden een 12tal verwijzingen gebruikt om een 'analyse' overzicht weg te schrijven (van B143 tot F153).
Echter is de laatste verwijzing een hyperlink, als ik deze kopier naar het overzicht IRR overzicht ben ik de hyperlink kwijt.

Hoe kan ik dit het beste oplossen ? in formulevorm schrijf ik =HYPERLINK(F153). Dit kan ik alleen niet direct zo toepassen in de vba code.

Alvast bedankt voor jullie hulp

 

[tkint]

Beste,

Ik denk dat het met de instructie WorksheetFunction.Hyperlink(F153) moet lukken.

 

[FrancescoB]

Beste,

Ik denk dat het met de instructie WorksheetFunction.Hyperlink(F153) moet lukken.

Ik heb onderstaande geprobeerd, echter krijg ik nu een foutmelding. Lijkt dus niet direct de oplossing, of doe ik nog iets fout ?

Range("R4").Select
Sheets("IRR").Select
WorksheetFunction.Hyperlink("F153").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("IRR overzicht").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[tkint]

Beste,

Probeer eens met Application.worksheet.function.hyperlink(f153).
Anders even surfen op het internet naar voorbeelden van deze instructie.

 

[tkint]

Beste,

Ik heb daarnet wat op het internet gezocht en ik vond onder andere dit Sheets("IRR overzicht").range("R4").formula= " de formule ".

 

[FrancescoB]

Beste,

Ik heb daarnet wat op het internet gezocht en ik vond onder andere dit Sheets("IRR overzicht").range("R4").formula= " de formule ".

Ik voel me best stom, maar krijg aldoor een foutmelding in excel als ik dit probeer.. ook op internet surfen naar deze hyperlink.function lijkt me niet te helpen.
Kan me niet voorstellen dat het heel lastig kan zijn, in principe kopieer ik nu al de 'tekst' naar de sheet IRR Overzicht, echter vergeet excel alleen de achterliggende hyperlink te kopiëren.