Gruppe
Dialog
Problem
Wie kann ich in einer Serie von UserForm-ListBoxes ausgewählte Werte 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