Gruppe
Link
Problem
In einer Zelle sollen zwei Hyperlinks untergebracht werden.
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