Probleme mit Hyperlink-Funktion
12.02.2008 14:02:00
Philipp
ich habe mir eine Funktion gebastelt, die einen Hyperlink zu einem anderen Tabellenblatt einfügt.
Auf Tabelle 1 in der Spalte A habe ich eine Durchnummerierung (1-5). In Spalte B übergebe ich mit der selbstgeschriebenen Funktion SetHyperlink die Zelle A1.
Dies habe ich gemacht, damit ich nicht jedes Mal eine Verknüofung manuell einfügen muss.
Hier meine Funktion:
Public Function SetHyperlink(ByVal rngAdd As Integer)
Dim strRange As String
If IsNumeric(rngAdd) Then
strRange = "'long LOP'!A" & rngAdd
Range("B" & rngAdd).Select
Sheets(1).Hyperlinks.Add anchor:=Selection, Address:="", _
SubAddress:=strRange, ScreenTip:="long description", TextToDisplay:="details"
End If
End Function
Mein Problem ist, dass Anstelle von "details" eine 0 steht und der Link immer auf die letzte Zeile springt und nicht in die ihr vorgegebene.
Kann einer mir verraten wo mein Fehler ist (muss ein logischer Fehler oder ein Excel Bug sein) oder kennt jemand einen anderen Weg?
Grüße,
Philipp