VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Hyperlinks zu SVERWEIS-Bezugstabellen anlegen

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

    


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