Thema: UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen

ClassModule: frmVersetzt

Private Sub cmdAbbrechen_Click()
   Unload Me
End Sub

Private Sub cmdEintragen_Click()
   Dim iCounter As Integer, iRow As Integer
   iRow = Cells(Rows.Count, CInt(Me.Tag)).End(xlUp).Row
   For iCounter = 0 To lstWerte.ListCount - 1
      If lstWerte.Selected(iCounter) Then
         iRow = iRow + 1
         Cells(iRow, CInt(Me.Tag)).Value = lstWerte.List(iCounter)
      End If
   Next iCounter
End Sub

Private Sub UserForm_Activate()
   lstWerte.List = Range(Cells(3, CInt(Me.Tag)), _
      Cells(17, CInt(Me.Tag))).Value
End Sub

StandardModule: modMain

Sub CallForm()
   With frmVersetzt
      .Tag = Left(ActiveSheet.Buttons(Application.Caller).Caption, 1)
      .Show
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox