Thema: Ausgewählte Werte aus UserForm-ListBoxes addieren

ClassModule: frmListBoxes

Private Sub cmdBerechnen_Click()
   Dim dSum As Double
   Dim iCounter As Integer
   For iCounter = 1 To 4
      dSum = dSum + CDbl(Controls("lstWert" & iCounter).List( _
         Controls("lstWert" & iCounter).ListIndex))
   Next iCounter
   MsgBox dSum
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim dValue As Double
   Dim iCounter As Integer, intWerte As Integer
   For iCounter = 1 To 4
      For intWerte = 1 To 10
         dValue = dValue + 1.2
         Controls("lstWert" & iCounter).AddItem dValue
      Next intWerte
      dValue = 0
      Controls("lstWert" & iCounter).ListIndex = iCounter
   Next iCounter
End Sub

StandardModule: basMain

Sub CallForm()
   frmListBoxes.Show
End Sub

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