Gruppe
Link
Bereich
Hyperlink
Thema
Hyperlinks zu SVERWEIS-Bezugstabellen anlegen
Problem
Wie kann ich zu einer Reihe von SVERWEISEN automatisch Hyperlinks zu den Bezugstabellen anlegen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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