Gruppe
Link
Problem
Wie kann ich zu einer Reihe von SVERWEISEN automatisch Hyperlinks zu den Bezugstabellen anlegen?
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