Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub HyperlinksAnlegen()
   Dim iRow As Integer, iStart As Integer, iEnd As Integer
   Dim sTarget As String
   For iRow = 1 To 9
      sTarget = Cells(iRow, 2).FormulaLocal
      iStart = InStr(sTarget, ";") + 1
      iEnd = InStr(iStart, sTarget, ";")
      sTarget = Mid(sTarget, iStart, iEnd - iStart)
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, 2), _
         Address:="", SubAddress:=sTarget
   Next iRow
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Link und Hyperlink