VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zwei Hyperlinks in einer Zelle

Gruppe

Link

Bereich

Hyperlink

Thema

Zwei Hyperlinks in einer Zelle

Problem

In einer Zelle sollen zwei Hyperlinks untergebracht werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: basMain

Sub CallForm()
   frmListen.Show
End Sub

ClassModule: frmListen

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub lstA_Click()
   Dim iRow As Integer
   iRow = 2
   lstB.Clear
   Do Until IsEmpty(Cells(iRow, 1))
      lstB.AddItem Cells(iRow, lstA.ListIndex + 1)
      iRow = iRow + 1
   Loop
End Sub

Private Sub UserForm_Initialize()
   lstA.Column = Range("A1").CurrentRegion.Rows(1).Value
End Sub

    


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