AW: Hyperlink setzen
13.01.2009 18:21:08
Tino
Hallo,
eventuell kommt die XP Version mit der der Area nicht zurecht, unter xl2003 und xl2007 funktioniert es.
Teste mal diese Version.
Option Explicit
Sub Hyperlink_Formel()
Dim strTabName As String
Dim MyArea
Dim a As Long
Dim Bereich As Range
Dim myCalc As Integer
strTabName = Sheets(2).Name
With Application
myCalc = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
MyArea = Range("C3:C365")
For a = 1 To UBound(MyArea)
If MyArea(a, 1) "" Then
MyArea(a, 1) = _
"=HYPERLINK(""#'" & strTabName & "'!C"" & ROW(),""" & MyArea(a, 1) & """)"
End If
Next a
a = 0
For Each Bereich In Range("C3:C365")
a = a + 1
If MyArea(a, 1) "" Then
Bereich.FormulaR1C1 = MyArea(a, 1)
End If
Next Bereich
.Calculation = myCalc
.ScreenUpdating = True
End With
End Sub
Gruß Tino