Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Hyperlinks zu SVERWEIS-Bezugstabellen anlegen

Gruppe

Hyperlink

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